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-REM & 


IDENTIFICATION 


PRODUCT CODE: AC=F241A-MC 

PRODUCT NAME: CJKDCAG KEF11-AA FP DIAG PART 1 
DATE CREATED: 20=-JUN-79 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO _ CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTUED AS A COMMITMENT BY 
DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY OCCUR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS Ayr x TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COSTED (WITH VTNCLUSION OF DIGITAL'S 
COPYRIGHT NOTICE) CNLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


alee EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMEW? THAI IS 
NOT SUPPLIED BY DiGITAL. 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 


SEQ 0001 
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ABSTRACT 


THE TWO PROGRAMS : 
CJKDCA, CJKDDA 


ARE DESIGN TO Proate AND REPORT LOGIC FAULTS IN THE 
F=11 MMU AND FLOATING POINT CHIP SET. THE 

Peete IS _AN ATTEMPT TO REACH ALL MIRCO=-CODE LOCATIONS. 
TESTS ARE PARTITIONED INTO TWO STAND-ALONE PROGRAMS 

DESCRIBED BELOW. 


NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 

UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS (CPU, MMU) HAVE 
BEEN RUN AND IN MOST CASE THAT THERE IS ONLY A SINGLE 
POINT FAULT EXISTS. IF THE PROGRAMS OR TESTS 

te IN ORDER THEN ERROR MESSAGES MAY NOT BE 
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oO 
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A. CJKDCA 
CJKDCA TESTS: (FLOATING POINT TEST 1) 


LDFPS 
STFPS 


CFCC 
atst’ SETD, SETI AND SETL 
LDF AND LDD (ALL SOURCE MODES) 
STD (MODE 0 AND 1) 
ADDF, ADDD AND SUBD (MOST CONDITIONS) 
ADDF, ADDD AND SUBD (Ail CONDITIONS NOT 
TESTED IN DFFPA) 
CMPD AND CMPF 
DIVD AND DIVF 
MULD AND MULF 
MODD AND MODF 
B. CJKDDA 
CJKDDA TESTS: (FLOATING POINT TEST 2) 


STF AND STD (ALL MODES) 
STCDF 
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STD 
NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
LDFPS (ALL SOURCE MODES) 
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LDCIF AND LDCLF 
re AND LDCLD 


LDEX 
STFPS be sti MODES) 


STCFL 
STCDL AND STCDI 
STEXP 
STST 
REQUIREMENTS 
EQUIPMENT 


A PROCESSOR WITH THE DCF11-AA,KTF11=AA AND KEF11-A CHIP SET. 
STORAGE 


BOTH PROGRAMS REQUIRE A WcMORY SYSTEM OF AT 
LEAST 16K TO LOAD AND RUN. 


PRELIMINARY PROGRAMS 


THESE TWO DIAGNOSTICS WILL ASSUME THAT THE 
BASIC CENTRAL PROCESSOR IS FAULTLESS, THEREFORE 
WHEN IN DOUBT RUN THE DCF11-AA PROCESSOR DIAG- 

NOSTICS BEFORE THESE FLOATING POINT DIAGNOSTICS. 


LOADING PROCEDURE 


THE PROGRAMS WILL BE SUPPLIED ON _ THE 11/23 
DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
MANUAL FOR FURTHER INFORMATION. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
PROGRAM AND OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY 

LOAD ADDRESS 200 

SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 

PRESS ST mal 

ON FIRST PASS THE PROGRAM 

WILL IDENTIFY ITSELF. NOTE THAT IF THERE IS 

NO PHYSICAL CONSOLE THE ~/-e WILL REQUEST 

THE OPERATOR FOR INITIAL VALUE FOR_ THE 
- SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 

IF RUNNING UNDER ACT, APT OR CHAIN THIS DOES 


wr 
e . . a 
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5.1 


6.2 


NOT APPLY 
5. THE PROGRAM WILL LOOP AND AN END OF PASS WILL 
BE TYPED AT THE END OF EVERY PASS. 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 
THE SWITCH SETTING ARE: 


OCTAL 
SW<15>=1... 100000 HALT ON ERROR 
SW<14>=1... 40000 LOOP ON CURRENT TEST 
SW<13>=1... 20000 INHIBIT ERROR TYPE OUTS 
SW<12>=1.. 10000 INHIBIT T-BIT_ TRAPPING 
SW<11>=1... 4000 INHIBIT ITERATIONS 
SW<10>=1... 2000 RING TTY Ha ON ERROR 
SW<9>=1.... 1000 LOOP ON ERR 
SW<8>=1.... 400 LOOP ON TEST SPECIFIED IN SW<6> 

THROUGH SW<0> 

ERRORS 

SUMMARIES 


WHEN AN ERROR IS ENCOUNTERED, AN ERROR MESSAGE ACCOMPANIED 

BY THE ERROR PC ARE TYPED. 

THERE ARE FOUR STANDARD ERROR MESSAGES = DESCRIBING 

THE PROBABLE CAUSE OF FAILURE, SUCH AS: PROBABLY BAD MMU CHIP; 
BAD FP1 CHIP; BAD HYBRID FP CHIP; FLOATING POINT ERROR. 


ERROR RECOVERY 


SW<15:9>=0... MOST ERRORS WILL CAUSE EXECUTION 10 
GO TO THE START OF THE NEXT TEST 
AFTER THE MESSAGE IS TYPED. A_ FEW 
TESTS ARE IN SECTIONS. _IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 


SW<15>=1... THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
CONSOLE CONTINUE WILL CAUSE THE 
PROGRAM TO CONTINUE AS IF SW<15>=0. 


RESTRICTIONS 


SEQ 0005 
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NONE 
MISCELLANEOUS 


EXECUTION TIMES 
LESS THAN 2 SECONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 


THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE TWO PROGRAMS. 


PASS COUNT 


THE PROGRAM MAKES ONE PASS FOR EACH END OF PASS 
MESSAGE TYPED. THE END OF PASS MESSAGE DESCRIBES 
THE TOTAL NUMBER OF PASSES COMPLETED. 


T-BIT TRAPPING 


IF SW<12>=0 EACH PROGRAM WILL RUN WITH TRACE TRAPS 
ON EVERY OTHER PASS. FIRST PASS WILL_NOT ENABLE 
TRACE TRAPS. NOTE SW<12>=1 DISABLES T-BIT TRAPS. 


SOFTWARE SWITCH REGISTER 


EACH OF THE TWO PROGRAMS WILL RUN WITH OR WITHOUT 

A CONSOLE SWITCH REGISTER. IF A PHYSICAL CONSOLE 
SWITCH REGISTER IS PRESENT ON THE SYSTEM, THEN THESE 
PROGRAMS WILL GO AHEAD pons USE IT FOR 

i ac ae ky IN 5.1 


S 

THE CONTENTS OF THE SOFTWARE SWITCH REGISTER 

TYPED. ON THE TTY AND ASK THE USER FOR A NEW VALUE. 
WHEN THE USER TYPES A VALUE AND CARRIAGE RETURN THEN 
THE PROGRAM WILL RESUME na? tae AT_THE SAME POINT AT 
WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL G. 
NOTE THAT WHEN NOT RUNNING UNDER ACT, APT OR CHAIN 
THE USER WILL BE ASKED FOR A SOFTWARE SWITCH 
REGISTER VALUE AFTER LOADING ADDRESS 200 AND 
STARTING THE PROGRAM THE FIRST TIME THE PROGRAM IS 
RUN AFTER LOADING (ONLY IF NO CONSOLE SWITCH 
REGISTER IS ON THE SYSTEM). 


ACT, APT AND XXDP COMPATIBILTY 
THE SE “= ARE FULLY COMPATIBLE WITH: 








H 1 
CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 17=JUN-79 11:50 PAGE 7 
CJKDCA.P11 08-JUN-79 08:40 


ACT 
XXDP MONITOR AND CHAIN PROGRAMS. 


PROGRAM DESCRIPTION 


THIS IS A TEST OF THE LDFPS (LOAD FLOATING POINT 
STATUS) AND STFPS (STORE FLOATING — STATUS) 
INSTRUCTIONS. VARIOUS PATTERN ARE USED AND RUN 
THROUGH THE FLOATING POINT STATUS REGISTER. 

ONLY DMO AND SMO ARE USED. NOTE THAT A 

MASK MUST a USED BECAUSE SOME OF THE FPS BITS 
CANNOT BE SET 


CFCC TEST 


THIS IS A TEST OF THE COPY CONDITION CODES 
INSTRUCTION, CFCC. 


SETF, SETD, SETI AND SETL TEST 


THIS IS A TEST OF THE SETF, SETD, SETI AND  SETL 
INSTRUCTIONS. EACH INSTRUCTION IS EXECUTED WITH THE 
FPS CONTAINING ALL ONES AND ALSO WITH THE FPS CLEAR. 
THE RESULT OF EACH SITUATION IS CHECKED. 


ILLEGAL FPP OP CODES AND STST TEST 


THIS IS A TEST OF THE FPP OPERATION CODES: 


170003 
170004 


170010 
170013 
170014 
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170077 


THE SE ~ ILLEGAL INSTRUCTIONS AND WITH INTERRUPTS 
ENABLED SHOULD CAUSE A_ TRAP TO 244. ALSO TESTED 
HERE IS THE INSTRUCTION: STST R1, WHICH SHOULD PUT 
THE FEC CODE 2 IN R1, AFTER ANY OF THE ABOVE OP 
CODES IS EXECUTED. 


FID, INTERRUPT DISABLE, BIT TEST 


THIS 1S A TEST OF FPS BIT 14 (FID) OR FLOATING 
INTERRUPT DISABLE. AN ILLEGAL INSTRUCTION IS 
EXECUTED WITH FID=1. NO INTERRUPT SHOULD OCCUR. 


LDD AND STD, WITH SRC _AND DST MODE 1, TEST 


THIS IS A TEST OF BOTH THE INSTRUCTION: 
LDD (RO) ,ACO 
AND THE INSTRUCTION: 
STD MOST OF THE 


ACO, (RO) 
FAILURES ARE sete ae TO THE SRC OR DST FLOWS. NOTE 
THAT THE INTEGRITY OF ACO HAS NOT BEEN ASSURED. 
THIS MEANS THAT IN SOME CASES IT WILL BE IMPOSSIBLE 
TO ISOLATE CERTAIN DATA PATTERN FAILURES TO EITHER 
THE FLOWS OR THIS ACCUMULATOR. 


FSRC MODE 0 TEST 


THIS IS _A TEST OF FSRC MODE ZERO USING THE LDD AND 
LDF INSTRUCTIONS. 


FDST MODE 0 TEST 


THIS IS_A TEST OF THE STORE INSTRUCTIONS, STD AND 
STF, WITH FDST MODE 0. 


ACCUMULATORS DATA PATTERNS TEST ' 


THIS IS A_TEST OF THE FLOATING POINT PROCESSOR 
ACCUMULATORS. 


EACH ACCUMULATOR 3, y ths IN TWO WAYS: 
1 TEST PATTERN GENERATED BY FLOATING A 
ONE ACROSS A FIELD OF ZEROES. 
2 TEST PATTERN GENERATED BY FLOATING A 
ZERO ACROSS Pf FIELD OF 
EACH OF ACCUMULATORS ACO THROUGH AC5 iS TESTED. 
FPP ACCUMULATORS DUAL ADDRESS TEST 


SEQ 0008 
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THIS TEST Ady A DUAL ADDRESSING TEST ON THE 
FLOATING ACCUMULATORS. | NOTE THAT ACCUMULATOR ZERO 
IS USED TO ACCESS ALL THE OTHERS. 

FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 
THIS IS A TEST OF FSRC MODE 0 WITH ACCUMULATORS 6 
AND 7, USE OF EITHER OF THESE NON-EXISTENT 


ACCUMULATORS SHOULD RESULT IN A TRAP TO 244 WITH 
FEC=2 (ILLEGAL FPP INSTRUCTION). 


FSRC MODE 2 TEST 


THIS IS A TEST OF 
FSRC MODE 


THIS IS A TEST OF FSRC MODE 4, AUTO DECREMENT MODE. 
FSRC MODE 2, WITH FD=0, TEST 
THIS IS A TEST OF FSRC MODE 2 WITH FD=0. (AUTO 
INCREMENT) 
FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 
THiS IS A TEST OF FSRC MODE 2 USING GR7 (THE PC). 
THIS IS IMMEDIATE MODE 
FSRC MODE 


THIS IS A TEST OF FSRC MODE 3, AUTO INCREMENT 
DEFERRED 


FSRC MODE 5 TEST 


THIS IS A TEST OF FSRC MODE 5, AUTO DECREMENT 
DEFERRED. 


FSRC MODE 6 TEST 


THIS IS A TEST OF FSRC MODE 6, INDEX MODE 
FSRC MODE 7 TEST 
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THIS IS A TEST OF FSRC MODE 7, INDEX DEFERRED MODE. 
TEST 24 (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


Halt IS A_TEST OF THE (BUT EZBT Y8) FORK, THE (BUT 
ENBT) FORK AND 


INSTRUCTION F FLOWS. 
EACH OF THE PATTERNS: 


(BUT FIUV) FORK IN THE LOAD 


0 

+NUM 

-NUM 

-0 
IS LOADED TWICE, ONCE WITH AC>O THEN WITH AC=0. 
AFTER EACH LOAD THE FPS IS CHECK TO INSURE THAT 
CONTROL WAS PASSED THROUGH WITH THE FORKS PROPERLY. 


TEST 25 ADDF ,ADDD,,SUBF AND SUBD WITH FSRC=AC=0 TEST 


THIS IS A TEST OF ADD AND SUB WITH FSRC=AC=0 
TEST 26 ADDD AND SUB WITH FSRC=0 


THIS IS A TEST OF ADD AND SUB WITH FSRC=0. 
TEST 27 SUBD WITH AC=0 TEST 


wi 
ovo 


THIS IS A TEST OF SUBD WITH AC=0. BOTH POSITIVE AND 
NEGATIVE FSRC'S ARE TRIED. 


TEST 30 ADDD WITH AC=0 TEST 


POSITIVE AND NEGATIVE FSRC*S ARE TRIED. 
ADDF AND ADDD WITH E(AC)=E(FSRC) AND (BUT FT) TEST 


AAA AUT UTA 
Se Se Se ee) 
WONAWUS wr 


THIS IS A TEST OF THE ADD INSTRUCTION WITH THE 
OPERANDS HAVING EQUAL EXPONENTS. THE (BUF FT) FORK 
IN THE ROUND/TRUNK FLOWS IS ALSO TESTED. 


ADDF AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST 


THIS IS ATEST OF THE ADDD AND ADDF INSTRUCTIONS AND 
THE ALIGN AC ALGORITHM FLOWS. THE CONSTANT (25 FOR 
FLOATING, 57 FOR é IS CHECKED. _ THEN 
SIMPLE AND WORST CASE ALIGNMENT SITUATIONS ARE 
TRIED. NOTE ECAC) IS LESS THEN E(FSRC) 
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TEST 33 ADDF AND ADDD WiTH E(AC) GREATER THAN E(FSRC) TEST 


THIS IS A TEST OF THE ADDD AND ADDF INSTRUCTIONS AND 
THE ALIGN FSRC ALGORITHM FLOWS. FIRST THE CONSTANT 
USED IS_ CHECKED. THEN SIMPLE AND WORST CASE 
ALIGNMENT SITUATIONS ARE TRIED. NOTE ECAC) IS 
GREATER THAN E(FSRC). 


TEST 34 ADDD WITH NEGATVE OPRANDS TEST 


THIS IS A TEST OF THE ADDD_ INSTRUCTION WITH NEGATIVE 
mie EVERY COMBINATION OF OPERAND SIGNS IS 


SUBD TEST 


THIS IS A TEST OF THE SUBD INSTRUCTION. BOTH 
yen AND A NEGATIVE NUMBER IS SUBTRACTED FROM i 


NORMALIZE ALGORITHM TEST 


THIS IS A TEST OF THE NORMALIZE FLOW ALGORITHM. TWO 
PATTERNS ARE USED, FIRST THE MINIMUM SITUATION 
REQUIRING ONE LEFT SHIFT AND THEN THE MAXIMUM 
SITUATION REQUIRING 56 SHIFTS. 


TEST 37 ROUND\ TRUNK TEST 


THIS IS A_ TEST OF THE ROUND\TRUNK FLOWS. IN 
PARTICULAR TWO THINGS ARE See #3 c+ A BY al 5 

AND SECOND THE PSW CONDITION CODES 
N AND Z BIT COMMBINATIONS 


TEST 40 OVER\UNDER TEST 


THIS IS A PARTIAL TEST OF THE OVER\UNDER FLOWS. ONE 
OVERFLOW AND TWO UNDERFLOW CONDITIONS ARE CHECKED. 
THE REMAINING UNDERFLOW COND. AND THE REMAINING 
OVERFLOW COND. WILL BE CHECKED LATER USING THE XXX 
INSTRUCTION. HERE EACH CONDITION TESTED IS CHECKED 
BOTH WITH TRAPS ENABLED (FIU=1 OR FIV=1) AND ALSO 
WITH TRAPS DISABLED (FIU=0 OR FIV=0). 


TEST 41 LDCFD AND LDCDF TEST 
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THIS IS A TEST OF LDCFD AND LDCDF. 
CMPD TEST 


THIS IS A_TEST OF THE CMPD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP OPERANDS, EXECUTE THE 
INSTRUCTION AND CHECK THE RESULTS 


DIVD WITH (FSRC=0) AND (BUT FD) TEST 


THIS IS A TEST OF THE DIVD INSTRUCTION WITH A ZERO 
DIVISOR. THE CONDITION IS CHECKED WITH BOTH TRAP 
ENABLED AND TRAPS DISABLED. 


DIVF TEST 


THIS IS A_TEST OF THE DIVF INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


DIVD TEST 


THIS IS A _TEST OF THE DIVD INSTRUCTION. NOTE THA 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


MULF TEST 
THIS IS A TEST OF THE MULF INSTRUCTION. IT MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MULF INSTRUCTION AND CHECK THE RESULTS. 


MULD TEST 


THIS IS A_TEST OF THE MULD INSTRUCTION. NOTE T 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE MULD INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULE WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS USING THE MULF INSTRUCTION WITH TRAPS 
DISABLED. NOTE THAT A SUBROUTINE IS USED TO SET UP 
a een EXECUTE THE MULF INSTRUCTION AND CHECK 


UNDER\OVER FLOW, USING MULD WITH TRAPS DISABLED, TEST 


SEQ 0012 


N 1 
CJKDCA=A_KEF 11-4 FP DIAG PART 1 MACY11 30A(1052) 11=JUN=79 11:50 PAGE 13 
CJKDCA.P11 08-JUN-79 08:40 SEQ 0013 


THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS THAT CAN  ARRISE USING THE MULD 
INSTRUCTION WITH a DISABLED. A SUBROUTINE IS 

USED TO SET UP THE OPERANDS, EXECUTE THE MULD 
INSTRUCTION AND CHECK THE RESULTS. 


TEST 52 UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 
CONDITIONS THAT ae OCCUR USING THE  MULF 


INTERRUPT, EITHER 
UNDERFLOW, IS ENABLED SO A TRAP SHOULD 


TEST 53 UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW 
CONDITIONS Pag + THE MULD INSTRUCTION WITH er 
ENABLED. SUBROUTINE IS USED TO SET UP THE 
ante EXECUTE THE MULD INSTRUCTION AND CHECK THE 


TEST 54 MODF TEST 


THIS IS A TEST OF THE MODF INSTRUCTION, WHICH 


MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MODF INSTRUCTION AND CHECK THE RESULTS. 


MODD TEST 


THIS IS A TEST OF THE MODD ply he IT_ MAKES 
USE OF A SUBROUTINE TO SET UP THE ARGUMENTS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 
THIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW 
CONDITIONS. IT MAKES USE OF A SUBROUTINE TO SETUP 
THE OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK 
THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 


TEST 57 UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 
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-LIST ME 
e-NLIST MD,MC,CND 


-ENABL ABS 


~TITLE CJKDCA-A KEF11-A FP DIAG PART 1 
:*COPYRIGHT (C) DEC 1978 

:*DIGITAL EQUIPMENT CORP. 

;*MAYNARD, MASS. 01754 


* 
s *PROGRAM BY DIAGNOSTIC ENGINEERING 


ieTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


STN 
$.SWR=160000 :HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


FPVECT=244 
$SWR=177400 
$SSWRMSK=200 
TAB=11 
CRLF=15 


-SBTTL BASIC DEFINITIONS 


rin. ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STAC 1100 

EQUIV EMT ,ERROR ::BASIC DEFINITION OF ERROR CALL 
“EQUIV JOT.SCOPE 3;BASIC DEFINITION OF SCOPE CALL 
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‘gee pees DEFINITIONS 
HT= 11 ;CODE FOR HORIZONTAL TAB 


; ; CODE RETURN 
000200 :;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 ‘Touty ja : PROCESSOR STATUS WORD 
177774 STKLMT= 128774 z;STACK LIMIT REGISTER 
PIRQ= 177772 ; 3 PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ; sHARDWARE SWITCH REGISTER 
DDISP= 177570 : ;HARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 ERAL REG 


REGISTER 
reieren 


; RAL REGI 
: STACK POINTER 
PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ;;PRI 


PR1= 
PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= : EPRIORITY 


3*''SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 


NOUSWN-O 


0 00 Co Co Co 00 C0 00 
CONOWUSWR— 


0 Co Co Co Co 
BBBVQS 
Whoo 


SWO6, SW6 
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Sw05 , SW5 


-EQUIV 
;*DATA 


“EQUIV BITOO-BITO 


; *BASIC **CPU'’ TRAP VECTOR _ADDRESSES 
=4 ME OUT AND OTHER ERRORS 
:ZRESERVED AND ILLEGAL INSTRUCTIONS 


+: TRACE TRAP 
; 3BREAKPOINT TRAP (BPT) 
: s INPUT /QUTPUT TRAP (IOT) **SCOPE** 


SPOWER FAIL 
: TEMULATOR TRAP (EMT) **ERROR** 
;;'"TRAP** TRAP 


7: TTY KEYBOARD VECTOR 
64 ee yey PRINTER VECTOR 
PIROVEC= 240 PROGRAM INTERRUPT REQUEST VECTOR 
Dh FPP REGISTER DEFINITIONS 
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000007 AC7 
-SBTTL TRAP CATCHER 


000000 =0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A" .+2,HALT"’ 
>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 


gaan e CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 =174 


000000 DISPREG: .WORD 0 : SOFTWARE DISPLAY REGISTER 
000000 SWREG: .WORD 0 :sSOFTWARE SWITCH REGISTER 
891 -SBTTL STARTING ADDRESS(ES) 
892 000200 000137 001466 JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
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-SBTTL COMMON TAGS 


FF RRR EERE ERRERKEEEKEERK EERE REREEEKEEREREE & 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


SCMTAG: :=START OF COMMON TAGS 


:s CONTAINS THE ae NUMBER 
S ERRUR FLAG 
SUBTEST Vigpesid |p. COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST toe — 


33 CONTAINS DATA 
; sRESERVED--NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
3 INTERRUPT MODE INDICATOR 


SO ORES OF SWITCH REGISTER 
eg eA eat REGISTER 


7: TTY KBD BUFFER 
:-TTY PRINTER STATUS REG. ADDRESS 
:zTTY PRINTER BUFFER REG. ADDRESS 
2 sCONTAINS NULL CHARACTER FOR FILLS 
ssCONTAINS # OF FILLER CHARACTERS REQUIRED 
+2 INSERT FILL CHARS. AFTER A ‘LINE FEED** 
:“"TERMINAL AVAILABLE'' aoe (BIT<07>=0=YES) 
: CONTAINS THE ADDRESS FROM 
; WHICH wit! WAS OBTAINED 
TAINS (($REGAD) +0) 
( ($REGAD) +2) 
($SREGAD) +4) 


a ad a cd cea ce ce cae cae cad a ae ce ce cae ae ed al ced ed 
eee TT wer eT ee 
WAWWWWINNNN 2 eS Se oO 


~~ 
i=) 


elelelelelelelelelel jlelelelelelelela) 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
001 


°° 
Se 
nD 
VU 


Nm 


SREGAD) +20) 


COOCOCOCOSCOCOGCOOCOCOCOCOCOCOO CO-NoCO 


( 
(( 
(( 
(( 
(( 
(( 
(( 
(¢ 
(( 
(( 
(( 
(( 
(( 
(( 
(( 


$REG20: : +: CONTAINS 





CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 yg hy 
CJKDCA.P11 79 08:40 COMMON T 


949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
961 
962 
963 
965 
967 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
987 
988 
989 
991 
992 
993 
994 
995 
997 
998 
1000 
1001 
1002 
1003 
1004 


001346 


08-JUN- 


000000 
000000 


000 


000377 


$REG21: 


11=JUN=79 
AGS 


elelelelelelelelelelelelelelelalelelalelelolo) 


H 2 
11:50 PAGE 20 


3-CONTAINS (($REGAD) +42) 
32CONTAINS (($REGAD) +44) 
2s CONTAINS (($REGAD) +46) 
:sUSER DEFINED 


NUMBER OF ITERATIONS 
 TESCAPE ON ERROR ADDRESS 


nen CODE FOR BELL 


<15> 
<12> 


3 sQUESTION MARK 
:- CARRIAGE RETURN 
3zLINE FEED 


SRK RK REE KKK KEKE EERE EKEREKEK KKK 


-SBTTL APT MAILBOX-ETABLE 


CD RRR REE EKER EKER EEK EKER EEK EKER REE KEKE EEE KKK KKK 


-EVEN 
$MA 


: BYTE 


AMAMS 1 


:sAPT MAILBOX 
PIMESSAGE TYPE CODE 
RROR NUMBER 


3 MESSAGE LENGTH 


oT suitta MODE arts 


TYPE 

A» oo 4 Ag 02.11/20=03,11/40=04,11/45=05 
/70=06.P he Q=10 

BIT 1O=REAL TIME C 

BIT 9=FLOATING POINT. PROCESSOR 

BIT 8=MEMORY MANAGEMENT 

::HIGH ADDRESS.M.S. BYTE 


SEQ 0020 


CJKDCA=A_KEF11=-A FP DIAG PART 1 MACY11 em eH 
CJKDCA.P11 08=JUN-79 08:40 


1005 001347 000 


3388 


ad cad cd aed aaa a nl en aa cl ceed cl cad cae ald 
lelelelelele) 
aod ae ad aed cd ead aed ch eo oa 
WONAUSWR—O 


jeolelefele) 


$DDW15: 


SETEND: 


Ti=JUN=79 11 


-BYTE 


MAILBOX=E TABLE 
$MTYP1: 
7* 


AMTYP1 


I 2 
:50 PAGE 21 


;:MEM. TYPE ,BLKA1 


MEM. TYPE BYTE 


500 
:-HIGH ADDRESS ,B 
MEM.LAST ADDR. i BYTES, THIS WORD AND LOW OF ‘’TYPE’’ ABOVE 
;;HIGH ADDRESS,M.S. BYTE 
3 3MEM. TYPE ,BLKA2 
ah LAST ADDRESS ,BLK#2 
HIGH Aa sy tet M.S.BYTE 
3 MEM. TYPE ,BLKA3 
2 3MEM. LAST ADDRESS, te 
2 3MEM. TYPE ,BLKA4 
>MEM.LAST ADDRESS ,BLK&4 
>: INTERRUPT VECTOR#1,BUS PRIORITY#1 
7: INTERRUPT VECTORA2BUS PRIORITY#2 
:sBASE ADDRESS OF EQUIPMENT UNDER TEST 
:;DEVICE MAP 
3:CONTROLLER DESCRIPTION WORDA1 
2; CONTROLLER DESCRIPTION WORDA2 
;DEVICE DESCRIPTOR WORDA#O 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 


DESCRIPTOR 
DESCRIPTOR 


‘DEV VICE DESCRIPTOR 


SEQ 0021 








i @ 
:50 PAGE 22 


SEQ 0022 


nt TABLE sie THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
ORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
{LOCATION SITEMB. e Site NUMBER INDICATES WHICH ITEM IN THE TABLE ; PERTINENT. 


IS 0 THE ONLY PERTINENT DATA _IS ($ERR 


IF RPC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3;POINTS TO THE ERROR MESSAGE 
:sPOINTS TO THE DATA HEADER 
:sPOINTS TO THE DATA 

3¢POINTS TO THE DATA FORMAT 


SIRE REE KERRIER ERE KEKRKEKKEREREKREKKKKE 


zSAVE PC 
321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
222)SET LOC. gee TO ZERO 

STORE P 


J RARER EEREREEKEEEEKREKRKKKEK 


SOI III III IOI IOIOIIOIOI III IOI IOI I ITI ITT OT I TOIT OIE 
22SAVE CURRENT LOCATION 
32SET POWER FAIL TO POINT TO START OF PROGRAM 


TO APT INDIRECT ADDRESS PNTR. 
TO APT HEADER BLOCK 


>;RESET LOCATION COUNTER 


LTR REREREKEEEKEREREEEKEEREREREKKEKEE 


APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
:ZADDRESS OF APT MAILBOX (BITS 0-15) 
:;RUN TIM OF LONGEST TEST 
feet Ba IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


0 ADDI 
$ETEND-SMAIL/2 3;LENGTH MAILBOX~E TABLE (WORDS) 


CJKDCA=A _ KEF11=-A FP DIAG PART 1 MACY11 30A(1052) 17=JUN=-79 11 
CJKDCA.P11 08=-JUN-79 08:40 ERROR POINTER TABLE 

1047 -SBTTL ERROR POINTER TABLE 

1048 

1049 

1050 THE INFORMA 

1051 

1052 3* ITEMB 

1053 *NOTE2: 

1054 

1055 3* EM 

1056 se DH 

1057 3* DT 

1058 s* DF 

1059 

1060 

1061 001442 SERRTB: 

1062 ; ITEM NUMBER 

1063 001442 062753 ~WORD EM1 

1064 001444 063001 . WORD EM2 

1065 001446 063035 . WORD EM3 

1066 001450 063063 -WORD EM4 

1067 

1068 

1069 .SBTTL ACTi1 HOOKS 

1070 

1071 

1072 sHOOKS REQUIRED BY ACT11 

1073 001452 $SVPC=. 

1074 000046 -=46 

1075 000046 057370 $SENDAD 

1076 000052 -=52 

1077 000052 «WORD 0 

1078 001452 -=$SVPC 

1079 -SBTTL APT PARAMETER BLOCK 

108! 

4 :SEr LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

1084 001452 -$X=. 

1085 000024 -=24 

1086 000024 000200 200 :3FOR APT START UP 

1087 00004 -=44 3zPOINT 

1088 000044 001452 SAPTHDR ::POINT 

1089 0014 -=.$X 

1090 

1091 ; SETUP 

1092 ; INTERFACE SPEC. 

1093 

1094 001452 SAPTHD: 

1095 001452 S$HIBTS: .WORD 0 

1096 001454 001316 SMBADR: .WORD $MAIL 

1097 001456 000010 STSTM: .WORD 10 

1098 001460 000040 SPASTM: .WORD 40 

1099 001462 000 SUNITM: WORD 

1100 001464 000052 . WORD 

1101 

1102 


K 2 
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CJKDCA.P11 08-JUN-79 08:40 T PARAMETER BLOCK SEQ 0023 


START: 
-SBTTL_ INITIALIZE THE COMMON TAGS 
3:CLEAR THE COMMON TAGS (S$CMTAG) AREA 
001100 MO AHSCMTAG ,R6 32FIRST LOCATION TO BE CLEARED 
CLR (R6)+ 3-CLEAR MEMORY LOCATION 
001140 CMP #SWR,R6 ; ;DONE? 
ed ; ms LOOP BACK IF NO 
TACK, SP : SETUP THE STACK POINTER 
;: INITIALIZE A FEW VECTORS 
000020 A#SSCOPE ,a#IOTVEC 2710T VECTOR FOR SCOPE ROUTINE 
000022 #340, a#1OTVEC+2 ;:LEVEL 7 
#SERROR , AMEMTVEC Sieur VECTOR FOR ERROR ROUTINE 
boat QWEMTVEC+2 ;:LEVEL 7 
STRAP , AA TRAPVEC TRAP VECTOR FOR TRAP CALLS 
#340, @ATRAPVEC+2;LEVE 
#SPWRDN, AAPWRVEC +s POWER FAILURE VECTOR 
#340, a#PWRVEC+2 se LEV VEL 7 
055516 MOV SENDCT , SEOPCT SETUP END-OF=PROGRAM COUNTER 
STIMES 7: INITIALIZE NUMBER OF ITERATIONS 
005067 i ie CLEAR THE ESCAPE ON ey ADDRESS 
112767 000001 177303 MOVB 1, SERMAX ALLOW ONE ERROR PER T P 
2s INITIALIZE THE” ‘T=BIT'' TRAP VECTOR. THEN LOAD | LOCATION. "setRN’, 
33 THE ‘END-OF=PASS'' (SEOP) ROUTINE, WITH A ° Y's 
012737 057434 MOV #$RTRN, AATBITVEC ieee "'T'' BIT VECTOR TO $RTRN 
000340 C016 #340, a4TBITVEC+2 ::LEVEL 7 
000002 #RTI,SRTRN £i3E1 VSRTRN TO A RTI 
001662 000010 #628 QARESVEC z TRY ay A A RTT 


001652 MO #64$,-(SP) +: PC 
:TRY THE RTT 
000006 055554 64$: ears .SRTRN <IRTT IS LEGAL--SET $RTRN TO A RTT 


000010 65$: #10,S RTT ILLEGAL=-CLEAN OFF THE STACK 
000012 000010 66$: #RESVEC#2, anresvec ;sRESTORE TRAP CATCHER 
055542 $TBIT zCLEAR ‘'T’* BIT SWITCH 
1700 177200 ee HINITIALIZE THE LOOP ADDRESS FOR SCOPE 
012767 177174 MOV -SLPERR SETUP THE ERROR LOOP ADDRESS 
3:SIZE FOR A HARD DUARE SWITCH REGISTER. IF NOT FOUND 
2;EQUAL TO A ‘1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
013746 000004 MOV @FERRVEC ,-(SP) 33 SAV VE ERROR VECTOR 
1754 000004 #67$ ,AMERRVEC SET UP ERROR VECTOR 
#DSWR, SWR £3 SETUP FOR A HARDWARE SWICH REGISTER 
MDDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
177777 +=177170 #~1 ,ASWR 22 TRY TO REFERENCE HARDWARE SWR 
69$ ; ;BRANCH IF NO Ms gg yg OCCURRED 


NOT = 1 
68$ ;;BRANCH IF NO TIMEOUT 
001762 : MOV #68$, (SP) 7:SET UP FOR TRAP RETURN 


000176 177150 : ASWREG, Sti wer TO SOFTWARE SWR 
000174 177144 #DISPREG, DISP 
012637 000004 : (SP)+, aMERRVEC ” s ;RESTORE ERROR VECTOR 


005067 177316 CL $PASS CLEAR PASS COUNT 
132767 000200 177323 HAPTSIZE .SENVM :ITEST USER SIZE UNDER APT 
001403 E 70$ 22YES,USE NON-APT SWITCH 


1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
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CJKDCA.P11 08-JUN-79 08:40 INITIALIZE THE COMMON T SEQ 0024 


1159 012767 001340 177114 MOV ASSWREG, SWR 32NO,USE APT SWITCH REGISTER 


1160 70$: 
-SBTTL _TYPE PROGRAM NAME 
:;TYPE THE oe yd THE PROGRAM IF FIRST PASS 
177777 INC 4-1 +eFIRST TIME? 
BNE 71$ 
057370 000042 CMP tase - 0442 


73 ee H IF YES 
002110 TYPE .72$ YPE ASCIZ_ STRING 
. 4 VALUE FOR SOFTWARE suiTcn REGISTER 
000042 TST ar42 ;;ARE WE RUNNING UNDER XXDP/ACT? 
3 BRANCH IF YES 
177256 000001 oe 2 ¢ARE 4 iP vee UNDER APT? 
177050 000176 MP 3 3 SOF TWARE SWITCH REG SELECTED? 
BN 74$ CH IF 
BR 7$ 3:GET SOFT=SWR SETTINGS 
000001 177026 #1,$AUTOB 33SET AUTO-MODE INDICATOR 


71$ :GET OVER THE ASCIZ 
<CRLF>*CJKDCA, KEFTI-a FP DIAGNOSTIC PART 1*<CRLF> 


AXaO 
Wr 


001100 ASTACK, SP SET UP STACK POINTER 
Boneh 000004 #1$, 044 SET UP FOR TIMEOUT IF NO MULTI-TESTER 


#340 ,a46 
000002 #2,04164000 3SET _''GO"" ON MULTI-TESTER 
000006 000004 #6, 044 RESTORE TRAP CATCHER 
000006 a6 


2 LKR KEKE EEE EEEEKREEEREKEEEEKKKKKEKE 


sSTEST 1 LDFPS, STFPS AND DATA PATHS TEST 


ieTHIS IS A TEST OF THE LDFPS (LOAD FLOATING POINT STATUS) AND STFPS 
>*(STORE FLOATING POINT STATUS) INSTRUCTIONS. A COUNT PATTERN IS GENERATED 
: *AND RUN THROUGH THE FLOATING POINT STATUS REGISTER. 

:*DMO_AND SMO ARE USED. 

z*NOTE THAT A MASK MUST BE USED BECAUSE SOME OF THE FPS BITS CANNOT 


; *BE 
** 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


We 3 9 9 9 SS 2 3 2 9 9 2h ot 9 2 oh oo a 
BELKARASLSSSVRALATLSIAVAARANASSEAKAF 


S 


SAKE KEE REE EERE EEKEEKEREKKEEEEEKEEKEEEREEKEEEKEREKEKEKE 


1811: 
3SET UP THE LOOP ON ERROR ADDRESS. 
177777 #~-1,RO INITIALIZE THE COUNT PATTERN. 
009556 #AERR1 , AMF PVECT E TO DECO 
002350 HAERR2 ,a#10 
002402 000004 MAERRS , @#ERRVECT 


3F 
:CORRECT SRC OR DST MODE AN 
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ODD ADDRESS TRAP WILL OCCUR. 


— 
Nm 
—_ 
uw 


: RO,R4 
030020 BIC #30020,.R4 


TEST INSTRUCTION. 


177777 MOV #-1,R1 
: 1 TEST INSTRUCTION. 
062534 000244 MOV #FPSPUR , @#F PVECT SET UP FOR UNEXPECTED TRAPS. 
A 0Gc0.R MASK OFF UNSETTABLE BITS. 


062566 000004 . #CPSPURS SWERRVECT 
062604 000010 CPTWO,a#10 


rrononeroneforefery 


NRNNNNNMNNN 
BONAUNESWN—OOONO 


COMPARE DATA EXPECTED WITH 
THE DATA READ. 
1F NOT EQUAL GO REPORT ERROR. 


NNN 
OSS 


012700 : P NEXT PATTERN a m ALL ZERO 
077031 RO,A1 sDECREMENT COUNT PATTERN 
000443 ADONE :UNTIL IT IS 7ERO. 


KARA 


;UNABLE TO DECODE FPP INSTRUCTION. TRAPPED TO 244. 
011637 001236 : MOV (SP) ,aASTMP2 ZSAVE PC OF TRAP. 
022626 CMP (SP)+, (SP)+ 
104004 : ERROR 4 
BR ADONE 


Oe lh kD ek ed dd ed od I 


MNPoMNonononolrs 
Sve 
o N 


UNABLE TO DECODE INSTRUCTION. TRAPPED TO 10. 
021627 002254 3 a (SP) ,4A11+2 :DID TRAP OCCUR OF FPP INSTRUCTION? 


002270 ti AA 2+2 


062604 a4CPTWO IF NOT FPP INSTRUCTION THEN 
REPORT SPURIOUS TRAP TO 10. 


011637 001236 : (SP) ,a@ASTMP2 OTHERWISE REPORT IR DECODE ERROR. 
aecace la ie 


000421 } BR ADONE 


; TRAP TO 4 HANDLER: 
021627 AERR3: CMP (SP) ,4A11+2 :DID_THE TRAP OCCUR ON THE 
001405 1$ :LDFPS_ INSTRUCTION? 
7? -MA12+2 3OR THE STFPS INSTRUCTION? 


@4CPSPUR IF NEITHER THEN REPORT 
UNEXPECTED TRAP TO 4, 


011637 : (SP) ,a#$STMP2 
022626 (SP)+,(SP)+ 
104004 : 4 

ADONE 


011637 001236 : (SP) ,a#$TMP2 
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002440 022626 CMP (SP)+,(SP)+ 
002442 104004 258: ERROR 4 


002444 ADONE : 

002444 104413 RSE TUP ee Tt Te te THE FPS AND STACK; AND 
THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


SERRE KEKKEKRKEREEKEREEKEEKKEEEREEEEKEEKEREKEREKEKREKEKE KEK 


:#TEST 2 CFCC TEST 
eTHIS IS A TEST OF THE COPY CONDITION CODES INSTRUCTION, CFCC. 
* 


+ s guamuNSedsesenendanagonessnanneds Inenbnennsennnessenteneneneese 
000004 TST2: 
104414 SET UP THE LOOP ON ERROR ADDRESS. 
012700 MOV #17,RO RO CONTAINS TO TEST PATTERN. 


Bi: 
170100 RO ;LOAD THE TEST PATTERN 


B2: 
170000 :COPY CONDITION CODES. 


013703 177776 a4PSW,R3 SEE IF PATTERN TRANSFERED. 
042703 177760 #177760,R3 
020003 0,R3 


& 


001002 BERR 


077011 3 RO,B1 
000422 BDONE 


3 


170201 a: R1 :WAS FPS MODIFIED BY CFCC? 
012737 002460 MO #B2,a4$TMP2 


020001 RO,R1 
001006 BERR1 


Abe Sa R3,Q4STMP3 
V ees 


B3 


SSSSSRSSSSysSZIE 


001240 : RO, a#STMP3 
001242 RI ,a#STMPA 


B3 


WNWNWNWWNWWNWWNWNWW 
OO ne ee ee ae et et eat et et eet ety 


N 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


QUIS WN $6 OONAUSWN-O 


WWNWWG 
MNMN 


104413 ; 7GO INITIALIZE THE FPS AND STACK; AND 
[SEE IF THE USER HAS EXPRESSED 


wW 
N 
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CJKDCA.P11 08-JUN-79 08:40 T2 CFCC TEST P SEQ 0027 
3 THE DESIRE TO CHANGE THE SOF TWARE 

VIRTUAL CONSOLE SWITCH REGISTER (HAS 

; THE USER TYPED CONTROL G?) 


LTE AAKRRRRKREREEEREKEREREREREEKEREKEREREEREERERREREEREEREEKEEREEKREKEEE 


s*TEST 3 SETF, SETD, SETI AND SETL TEST 


TeTHIS IS A_TEST OF THE SETF, SETD, SETI AND SETL INSTRUCTIONS. 
>*EACH INSTRUCTION IS EXECUTED WITH THE FPS CONTAINING 
:*ALL_ONES AND ALSO WITH THE FPS CLEAR. THE RESULT OF EACH 

:* SITUATION IS CHECKED. 

:*$TEMP2 CONTAINS INSTRUCTION agg TO PERFORM 

;*$BDDAT CONTAINS BAD FPS CONTAIN 


SRK KEKE REE KE KR EEEEEEKEREEEEREEEREEREEEEREEEEEREREREKEREREE 


i813: 
;SET UP THE LOOP ON ERROR ADDRESS. 
000760 001244 MOV #760, a4$TMP5 
000202 001250 C1: #202. a¥STMP7 


as a os ss 
WWWWWNWG 
NOUS WP 


WW 


;CLEAR THE FPS. 


SESSEESESS SS 


1701 RO 

012737 002602 001236 MO A#C15 ,aASTMP2 
170001 g TEST INSTRUCTION. 
170201 R1 ;GET RESULT. 

005002 CL Re : 

020201 R2,R1 :DID AN ERROR OCCUR? 
001403 1$ 

010137 MOV R1,a4$BDDAT STORE BAD DATA 

104001 1 


WNWWWNWWNWW 
DAAAAAAGIS 
WOCOONAUESWI—O 


104414 4 ;SET UP THE LOOP ON ERROR ADDRESS. 
012700 147757 : MOV #147757.RO 


RRR 
wr 


PUT 147757 IS FPS 
CLEAR FD BIT. 
170201 R1 GET RESULT 
147557 MOV #147557 ,R2 
R1,R2 RESULT CORRECT. 


001126 o) SPSRORAT STORE BAD DATA 


170100 RO 
012737 002640 901236 MOV #C25 ,aASTMP2 
170001 C25: 


SSSSSESE 


N 
N 


;SET UP THE LOOP ON ERROR ADDRESS. 
000203 001250 C3: MOV #203, a#STMP7 
147757 #147757,RO 


SEER 
BSI ARG 


LOAD 147757 INTO FPS, 
7:SETD FD BIT. 


ae 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
F 
1 
1 
1 
1 
1 
i 
1 
1} 
1 
1 
i 
1360 
: 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
7 
1 


RO 
002706 001236 , MOV #C35,a4$TMP2 


& 





CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11  ; hte 
08:40 T3 


CJKDCA.P11 
1383 


seaeevumngaes | 


ed a at a 2 Ls ss 
vi 


WWNWAAAAWW 


BLS 


08-JUN-79 


170201 


005000 
170100 
012737 
170011 


170201 


012737 
170002 
170201 

2 


170 
012737 
170002 
170201 


147757 


001126 


002744 


000204 


003010 


147757 
003046 


147657 


001126 


001236 


001250 


001236 


001236 


SETF 


c 3 
1i=JUN=79 11:50 PAGE 28 
. SETD, SETI AND SETL TEST 


R1 
4 ay de 


7 
-hecnmementtes 


sRESULT CORRECT? 
STORE BAD DATA 


SET UP THE LOOP ON ERROR ADDRESS. 


RO 
RO 
#C45 ,aASTMP2 


R1 
#200,R2 
R1,R2 


1 
—— 


CLEAR FPS. 


;SET FD BIT. 

GET RESULT. 

sRESULT CORRECT? 
STORE BAD DATA 


SET UP THE LOOP ON ERROR ADDRESS. 


#204 , @ASTMP7 
RO 
RO 
#C55 ,aASTMP2 
R1 


R2 
R2,R1 
1$ 

o anes 


;CLEAR FPS 


;CLEAR FL BIT. 

GET RESULT. 

RESULT CORRECT? 
STORE BAD DATA 


SET UP THE LOOP ON ERROR ADDRESS. 


+ lia 
4#(65 ,aASTMP2 


R1 
#147657 ,R2 
R1 »R2 


1$ 
B! BPSEDOAT 


PUT 147757 INTO FPS 


CLEAR FL BIT. 

GET THE RESULT. 

RESULT CORRECT? 
STORE BAD DATA 


SEQ 0028 
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CJKDCA.P11 08=JUN-79 08:40 T3 SETF, SETD, SETI AND SETL TEST SEQ 0029 
1439 003070 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1440 003072 012737 000205 001250 C7: MOV #205 a4$TMP7 
1441 003100 012700 147757 MOV 47757,R0 
1442 003104 170100 LDFPS RO” :SET FPS TO 147757. 

1443 003106 012737 003114 001236 MOV #C75, aaSTMP2 

1445 003114 170012 C75:  ~—-SETL :SET FL BIT. 

1447 003116 170201 STFPS RI :GET THE RESULT. 

1448 003120 012702 147757 MOV #147757,R2 

1449 003124 020102 CMP R1,R2 :RESULT CORRECT? 

1450 003126 001403 BEQ 1$ 

1451 003130 010137 001126 MOV R1,a4SBDDAT ;STORE BAD DATA 

1452 003134 104001 ERROR 1 

1454 003136 1$: 

1455 003136 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1456 003140 005000 (8: CLR RO 

1457 003142 170100 LDFPS RO ZCLEAR FPS. 

1458 003144 012737 003152 001236 MOV #C85, aASTMP2 

1460 003152 170012 C85: — SETL :SET FL BIT. 

1462 003154 170201 STFPS RI 

1463 003156 012702 000100 MOV #100,R2 

1464 003162 020102 CMP R1,R2 ;RESULT CORRECT. 

1465 003164 001403 BEQ 1$ 

1466 003166 010137 001126 MOV R1, a#$BDDAT :STORE BAD DATA 

1467 003172 104001 ERROR 1 

1468 

1469 003174 1$: 

1470 003174 CDONE : 

1471 003174 104413 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
1472 [SEE IF THE USER HAS EXPRESSED 
1473 [THE DESIRE TO CHANGE THE SOFTWARE 
1474 [VIRTUAL CONSOLE SWITCH REGISTER (HAS 
1475 :THE USER TYPED CONTROL G?) 

1476 

1477 

1478 DI II TI TIT I TIT TT TOTTI TOT TORTS TOTO TOOT TOTTI TT IK tt ek 
1479 : TEST 4 ILLEGAL FPP OP CODES AND STST TEST 

1481 }*THIS IS A TEST OF THE FPP OPERATION CODES: 

1482 : 170003 

1483 ce 170004 

1484 ie : 

1485 te 170010 

1486 :* 170013 

1487 ie 170014 

1488 i” 

1489 ie 170077 

1490 **THESE ARE ILLEGAL J INSTRUCTIONS AND (WITH INTERRUPTS ENABLED) 
1491 :*SHOULD CAUSE A TRAP TO 244. 

1492 ;*ALSO TESTED HERE nS THE INSTRUCT ION: 


STST 
1494 ‘ eWHICH SHOULD PUT THE FEC CODE 2 IN R1, AFTER ANY OF THE ABOVE 


E 3 
CJKDCA=A_KEF11=-A FP DIAG PART 1 MACY11 30A(1052) 1i-JUN-79 11:50 PAGE 30 
CJKDCA.P11 08-JUN-79 08:40 14 ILLEGAL FPP OP CODES AND STST TEST 


:*OP CODES IS EXECUTED. 
° 


’ 
SL AAR EEE EREEREREREEEREKKEEEEE EE 


TST4 
SET UP THE LOOP ON ERROR ADDRESS. 
MO #170003 ,R5 INITIAL OP CODE. 
000004 ADERR2 ,a#ERRVECT 
000244 AMDERRi , a#FPVECT 


;CLEAR FPS. 
;SET UP THE ILLEGAL INSTRUCTION. 


vw 


003246 001236 
Re 
R2 


170201 R1 REPORT FAILURE. DID NOT TRAP. 
Sonam 001240 MO haga 


DONRNRWN=™OSRN 


022705 170010 : + apie COMPUTE NEXT OP CODE 
012705 170013 #170013,R5 
000750 D1 


NNN Ny @ SS Ss SS oe 
= 


CON OU WIO 


022705 170077 : #170077,R5 
001001 D7 
DDONE 
R5 
D1 
022716 003250 #D3, (SP) DID TRAP OCCUR ON TEST INSTRUCTION? 
001402 B 1 
062534 a4F PSPUR 
022626 3 MP (SP)+,(SP)+ 


170207 R1 GET THE FPS AND SEE IF IT IS 
022701 100000 CMP #100000,R1 SET CORRECTLY. 
061406 3$ 


Mr 


000452 
005205 
000742 


ehh ad a gh ab 4) fb gb Ot 48 6 hehe fear et fee hate ed 


WMA AAUVUIU 
BIRALUYLSS 


SRR BRW 
Whoo 


012737 100000 001240 #100000, a#S$TMP3 
Sonabe 001242 MOV tated 


012704 000001 : #1,R4 
170304 : 4 :GET_ THE FEC CODE. NOTE THAT 


: AN ODD 
zADDRESS TRAP TO 4 SHOULD OCCUR. 
oe eone 000002 § WAS FEC CORRECT? 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


MVvIwvw 
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CJKDCA.P11 08-JUN-79 08:40 ILLEGAL FPP OP CODES AND STST TEST SEQ 0031 


D9: REPORT STST FAILURE 
012737 003362 001240 #D8 , AAS TMP3 
001242 MO Negeri 


DS 
003364 : #D8+2, (SP) :DID_THE TRAP OCCUR ON THE 
B D10 sSTST INSTRUCTION? 
062566 a4 CPSPUR 
011637 001236 (SP) ,aASTMP2 
022626 (SP) +, (SP)+ 
104001 : 


: 1 
000714 BR D5 


104413 ite it tt tk THE FPS AND STACK; AND 


0 THE SOF 
VIRTUAL CONSOLE SWITCH + pall (HAS 
THE USER TYPED CONTROL G?) 


FIR RIKER EERE KEKE KEKE EREEKEEREEEREEREKKKEEK KK 


:ETEST 5 FID, INTERRUPT DISABLE, BIT TEST 


THIS IS _A TEST OF FPS BIT 14 (FID) OR FLOATING INTERRUPT DISABLE. 
bn nat INSTRUCTION IS EXECUTED WITH FID=1. NO INTERRUPT SHOULD 
;* . 


ok 
jiteneneeueeeuseasensnnenanansenensgusnassanasenanasonnesoanenss 
000004 TST5: SCOPE 
104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
012737 003546 000244 MOV MEERR2 ,a#FPVECT :SETUP FOR THE INTERRUPT. 


040000 : MOV #40000 ,RO 
LDFPS RO :SET FID. 
012737 003466 001236 , MOV #E3, QHSTMP2 


170020 : .WORD 179020 sILLEGAL FPP INSTRUCTION. 
170000 : CFCC 


170201 R1 SEE IF ERROR WAS DETECTED. 
MP #140000,R1 
EERRO 


R4 SEE IF FEC=2 
#2 ,R4 
EERR1 
EDONE 


REPORT FPS INCORRECTLY SET. 
001240 R1, a4#$TMP3 
140000 001242 #140000, a#$TMP4 
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PAGE 32 
CJKDCA.P11 08-JUN-79 08:40 FID, INTERRUPT DISABLE, BIT TEST SEQ 0032 

1607 003526 104001 1$: ERROR 1 
18 003530 000422 BR EDONE 
1610 003532 EERR1: ;REPORT FEC NOT 2. 
1611 003532 010537 001240 MOV R5 ,@A$TMP3 
1612 3536 010437 001242 MOV R4 ,a4$TMP4 
1615 003542 104001 1$: ERROR 1 
rele 003544 000414 BR EDONE 
1616 003546 021627 003470 EERR2: CMP (SP) ,AE4 :DID THE iitFGAL INSTRUCTION TRAP? 
1617 003552 001402 BEQ 1$ 
1618 003554 000137 062534 JMP aA4F PSPUR 
1620 003560 1$: 
1621 003560 011637 001236 MOV (SP) ,a@#$STMP2 
1622 003564 022626 CMP (SP)+,(SP)+ 
1623 003566 170201 STFPS R1 
1624 003570 010137 001240 MOV R1,a4$TMP3 
1052 003574 104001 2$: ERROR 1 
1627 003576 EDONE : 
1628 003576 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
1629 :SEE IF THE USER HAS EXPRESSED 
1630 THE DESIRE TO CHANGE THE SOF TWARE 
1631 :VIRTUAL CONSOLE SWITCH age (HAS 
1632 ;THE USER TYPED CONTROL G?) 
1633 
1634 
1635 CIR IIIT TOIT IOI IOS ITO IIIT OOOO I IOI IIIS AISI AAS ISAM. 
1o%8 :*TEST 6 LDD AND STD, WITH SRC AND DST MODE 1, TEST 
1638 j*THIS IS A TEST OF BOTH THE INSTRUCTION: 
1639 LDD (RO) ,ACO 
1640 : AND THE INSTRUCTION: 
1641 STD RO) 
1642 : #MOST OF THE FAILURES ARE ISOLATED TO THE SRC OR DST FLOWS. NOTE 
1643 3 * THAT oe beth tae OF ACO HAS NOT BEEN ASSURED. THIS MEANS THAT 
1644 :*IN SOME CASES IT WILL BE IMPOSSIBLE TO ISOLATE CERTAIN DATA PATTERN 
ez >*FAILURES TO EITHER THE FLOWS OR THIS ACCUMULATOR. 

*% 
1647 UTITISIITITISTTTTITITITTTT TITTLE TTTTTTTTTT TTT LETT TTT TTT TTtttee 
ie 003600 000004 TST6: SCOPE 
1650 003602 Fl: 
1651 003602 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1652 003604 012737 003654 001236 MOV #F 3, QASTMP2 
1653 003612 005000 CLR RO 
1654 003614 170100 LDFPS RO 
1655 003616 170011 SETD 
1656 003620 012701 005372 MOV #FDATIO,R1 SET UP THE LOAD DATA. 
1657 003624 012702 005436 MOV #FXDATO,R2 
1628 003630 012703 000010 MOV #10,R3 
1660 003634 012221 F2: MOV (R2)+,(R1)+ 
1661 003636 077302 SOB R3,F2 
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— es I 
NNNNNNWNONN GS 
— os eed od os I 
CONAUSWM—oO 


012700 
012737 


005003 
172410 


020327 
001402 


012701 


000137 
077305 
170201 


012737 
012703 
0127 


077402 


012700 
012737 


005003 
174010 
005203 
005203 
020027 
001402 


020327 
001402 
000167 


Ota KEF11=A FP DIAG PART 1 MACY11 — 
08-JUN-79 08:40 LD 


005402 
005072 


005402 
004236 
000002 
004334 
005372 


005436 
000010 


004200 


000200 
005052 


004014 
177777 


005424 
005232 


005424 
004374 
000002 
000320 


H 3 
1i=JUN=79 11:50 PAGE 33 
D AND STD, WITH SRC AND DST MODE 1, TEST 


#FDATI4,RO 
#FERR20, a#ERRVECT 


R3 

(RO) ,ACO 
R3 

R3 
RO,AFDATI4 
F5 

@4FERR1 
Sa 
@4FERR2 


#FDATIO,R1 
#FXDATO,R2 


#10,R3 
(R1)+,(R2)+ 
3$ 

a4F ERRO 
R3,2$ 


R1 
#200,R1 
F6 


@4FERR11 


#F10,a4STMP2 
#-1 R3 
#10,R4 
#FDATOO,RS 
R3,(R5)+ 


#FDATO4 ,RO 
#FERR25 ,a#ERRVECT 


R3 

ACO, (RO) 
R3 

R3 

RO, AF DATOS 
Fle 
a4FERR3 


ETUP RO FOR THE LDD (RO) .ACO. 
TF THE SRC FLOWS FAIL THEN 
AN ODD ADDRESS MAY OCCUR. 


WAS RO AFFECTED? 


SEE IF THE PC WAS ADVERSELY 
sAFFECTED DURING THE INSTRUCTION. 


MAKE SURE THE SOURCE DATA WAS 
NOT AFFECTED. 


MAKE SURE THE FPS IS CORRECT. 


THE LOOP ON ERROR ADDRESS. 


SET UP THE OUTPUT DATA BUFFER. 


:SET_UP RO FOR DST MODE 1 REG O. 
:IF THE DST FLOWS FAIL AN ODD 
ADDRESS COULD OCCUR. 


:TEST INSTRUCTION. 


sWAS RO MODIFIED? 


WAS THE PC AFFECTED CORRECTLY? 
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CJKDCA.P11 08-JUN-79 08:40 16 LDD AND STD, WITH SRC AND DST MODE 1, TEST 


004046 005414 F135: MOV #FDATOO,R1 
004052 005436 MOV #F XDATO,R2 


004056 CMP (R1)+,(R2)+ sSEE IF THE DATA WAS OUTPUT 
004060 ] BEQ F13 ;TO THE TARGET AREA CORRECTLY. 
004472 @AFERRS 
(R1)+,(R2)+ 
F14 
004472 @4FERRS 
022122 : (R1)+,(R2)+ 
001402 F15 
000137 004472 @A4FERRS 
022122 : (R1)+,(R2)+ 
001402 F16 
000137 004472 @AFERRS 
022122 : (R1)+,(R2)+ 
001402 F17 
000137 005016 Q4FERR10 
022122 : (R1)+, (R2)+ 
001402 F20 
000137 004526 aAF ERR6 
022122 : (R1)+,(R2)+ 
001402 F21 
000514 FERR7 
022122 : ! (R1)+,(R2)+ 
001402 F22 
000137 005016 @4FERR10 
R1 
R1 
000200 MP + ai 


F 
005052 @A4FERR11 
005456 : @4F DONE 


MAKE SURE FPS IS CORRECT. 


:SOURCE DATA AFFECTED BY 
001240 #F XDATO,@#STMP3 THE LDD INSTRUCTION. 
#F XDATO+12,a4STMP4 
#FDATIO, a#STMPS 
001246 #FDATIO*2, -@ASTMP6 


@4F DONE 


012737 001242 : #FDATI4 ,a#$TMP4 zFSRC FLOWS FAILURE. 
010037 MO , AAS TMPS 

012737 000762 001244 #762, aASTMPS 

012737 001250 #321, a4$TMP7 
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CJKDCA.P11 08-JUN-79 08:40 LDD AND STD, WITH SRC AND DST MODE 1, TEST SEQ 0035 


peer 005372 aaa aaa :FSRC MODE 4? 
012737 000324 001246 #324, aASTMP6 
000412 4$ 


peerye 005412 : #FDATI4+10,RO sFSRC MODE 2? 
012737 000322 001246 #322, a4STMP6 
000403 BR 4$ 


NNN 
co 


104001 f 1 ; MODIFED, LDD 
000137 005456 MP aAF DONE 


BBAVSRBOS 


co 
Oo 


104001 1 3 MODIFED, LDD 
000137 005456 @4F DONE 
012701 003656 : #F4,R1 THE PC WAS INCORRECTLY AFFECTED 
;DURING THE INSTRUCTION. 
010137 001242 : R1,a4$TMP4 
000004 #4,R1 
R3 
R3,R1 
001240 7 ay 
005456 MP @4F DONE 


012701 004016 2 #F11,R1 
000762 BR FER2 


012737 005424 001242 : #F DATOS , AAS TMPS FAILURE IN THE FDST FLOWS. 
010037 001240 MO RO, a#STMP3 

012737 000527 001244 #527, aASTMPS 

012737 000641 001250 #641, aASTMP7 

022700 005414 #F DATOO,RO DST MODE 4? 


001004 
012737 000644 001246 #644 , AASTMP6 
000412 4$ 


022700 005434 : . #FDATO4+10,RO DST MODE 2? 


001004 
012737 000642 001246 #642 ,a#$STMP6 
000403 BR 4$ 


Be eR or orcs sessaraese 


— SH Ss SS os SH 1 3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
: 
; 
} 
1 
5 
1 
1 
1 
1 
1 
1 


0 CO Co CO C0 09 Co Co 00 Co Co Co 
—OODNAULRWN =O 


Mor 


104001 : 1 7RO WAS MODIFIED, 
000137 MP 


104001 : 7RO WAS MODIFIED, 
000137 005456 
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CJKDCA.P11 


FERERERERRORERAREEER 


& 


—_ eS ed Ss SS SS es ss) SI SS Ss SS SS 3 a I Ss I os as 


1 
000137 


012737 


104001 
000137 


012701 


012701 


08-JUN-79 0 


005426 
177777 
000003 


0 
001246 


001244 
001246 
001250 


001244 
001246 
001250 


001250 


FERRS: 


1$: 


FERR6: 


1$: 


2$: 


5$: 
6$: 


7$: 


2$: 


5$: 


K 3 
11=JUN=79 11:50 PAGE 36 
LDD AND STD, WITH SRC AND DST MODE 1, TEST 


FAILURE OF STD. 
RO, a4$TMP3 
#FDATOO ,@A#$TMP4 
MF DATO? ,@ASTMPS 
 depeere tes 


@4F DONE 
#FDATOS,R1 :DID (BUT GR7) FAIL IN THE FDST 
#-1,R2 :FLOWS? 


OUTPUT BAD, STD 


#3,R3 
R2,(R1)+ 
R3,1$ 
;REPORT Sata OF (BUT GR7) IN 
RO, a4$TMP3 THE FDST FLOWS. 


#145, aS TMP7 

@A4F DONE 

ome ;DID (BUT GR7) FAIL IN THE SRC FLOWS? 
(Ri)+ 

7$ 

@4FERR10 

R3,6$ 


;REPORT FAILURE OF (BUT GR7) IN 
RO, a4$TMP3 [THE FSRC FLOWS. 
#207, a4$TMPS 
#176. a4STMP6 
#174. a4STMP7 


1 
a4F DONE 


hws ;DID (BUT FD) FAIL IN THE FDST FLOWS? 
#2,R3 
R2,(R1)+ 
5$ 
R3,1$ 
sREPORT FAILURE OF (BUT FD) IN THE 
aASTMP3 [FDST FLOWS. 
#245, a4$TMP7 
Ser DONE 
#FDATO6,R1 ;DID (BUT FD) FAIL IN THE FSRC FLOWS? 


SEQ 0036 


a. 
CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 1i=-JUN-79 11:50 PAGE 37 
CJKDCA.P11 08-JUN-79 08:40 T6 LDD AND STD, WITH SRC AND DST MODE 1, TEST SEQ 0037 


01 443 MO #2 ,R3 
00 6$: (R1)+ 
7$ 
@4F ERR10 
7$: R3,6$ 
REPORT FAILURE OF (BUT FD) IN THE 
RO, a#$STMP3 sFSRC FLOWS. 
001244 4441 ,AASTMPS 
001246 
001250 


i0$: 3 :BAD DATA 
@A4F DONE 


FERR10: REPORT DATA ERROR. 
MO RO, a4$TMP3 

001242 AF DATO4 , AAS TMPS 

001244 #FDATO7 ,@ASTMPS 

001246 MOV a 


1$: 
@A4F DONE 


FERR11: ;REPORT BAD FPS. 
010137 MO R1,a4#STMP3 
012737 000200 001242 MOV #200, aS TMPG 
104001 1$: 1 
000137 MP @4F DONE 


012737 001264 FERR20: NULL , @ASTMP15 THE EXECUTION OF THE LDD 
5037 C a#$STMP10 :CAU SED A TRAP TO 4, BECAUSE 
(SP) ,@ASTMP2 A FSRC FLOW FAILURE RESULTED 
001240 #FDATI4, os ws SIN AN ODD ADDRESS. 
000321 001250 #321, a#$TMP 
012737 001244 #762, Ses IMPS 


021627 MP (SP) AF 4+2 :SEE IF FSRC MODE 6 OR 7 WAS 
001424 FERR21 TEXECUTED. 


020027 RO,AFDATI3 zFSRC MODE 5? 
001006 2$ 


BESesRese3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSVSsesseses 
DDBVAARWU=S 


REPORT FSRC FLOW FAILURE TO 

012737 001246 #325 ,AASTMP6 sMODE 5. 

(SP)+, (SP)+ 

F DONE 

By AF BATIS zFSRC MODE 3? 

@4CPSPUR 

2 REPORT FSRC FLOW FAILURE TO 

012737 001246 #323, a#STMP6 :MODE 3. 
022626 MP pares Sah oe 


104001 
000523 F DONE 
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CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 11-JUN-79 11:50 PAGE 38 
T6 LDD AND STD, WITH SRC AND DST MODE 1, TEST 


CJKDCA.P11 08-JUN-79 08:40 


022626 FERR21: (SP) +, (SP)+ sREPORT FSRC FLOW FAILURE TO 


sMODE 6 OR MODE 7. 
012737 001246 #326, QASTMP6 
012737 001252 MOV #327 ,aASTMP10 
104001 1$: 1 
000512 . BR F DONE 


012737 001264 FERR25: #NULL , @ASTMP15 ;THE EXECUTION OF THE STD INSTRUCTION 
5037 C a4$TMP10 ; TRAPPED TO 4, BECAUSE A FAILURE 
001240 #FDATOG,@ASTMP3 :IN THE FDST FLOWS RESULTED 
(SP) , a#$TMP2 :IN AN ODD ADDRESS. 
001244 #527. a4STMPS 
012737 000641 001250 #641. a4$STMP7 


021627 (SP) ,AF10+2 FLOW FAILURE TO FDST MODE 6 OR 7? 
001424 FERR26 


020027 RO ,AF DATOS :DID FDST FLOW FAIL TO MODE 5? 
001006 2s 


BRS 
=o 


REPORT FLOW FAILURE TO FDST 
012737 001246 #645 , AASTMP6 :MODE 5. 
 hbicwaless 


F DONE 
2$: RO, A4FDATOS iDID FDST FLOW FAIL TO MODE 3? 
@4CPSPUR 


3$: REPORT FDST FLOW FAILED TO MODE 3. 
012737 001246 #643 ,aASTMP6 
022626 MP (SP) +, (SP)+ 
104001 4$: 1 
000443 BR F DONE 


FERR26: REPORT FDST FLOW FAILURE TO MODE 
012737 001246 MO #646 , BASTMP6 
012737 001252 #647 ,@ASTMP10 

1s gare. tar ae 


F DONE 


ZESSTES 


FDATIO: 


wh 


FDATI7: 


FDATOO: 
FDATO1: 
177777 FDATO2: 


SESSEEEE 
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CJKDCA.P11 08-JUN- D AND STD, WITH SRC AND DST MODE 1, TEST SEQ 0039 
1999 005422 177777 FDATO3: =1 
2000 005424 177777 FDATO4: =1 
2001 005426 177777 FDATOS: =1 
2002 0054350 177777 FDATO6: =1 
2003 005432 177777 FDATO7: =1 
2004 005434 177777 -1 
2005 005436 177777 FXDATO: =1 
2006 005440 177777 FXDAT1: =1 
2007 005442 177777 FXDAT2: =1 
2008 005444 177777 FXDAT3: =1 
005446 052525 FXDAT4: 052525 
2010 005450 031463 FXDATS: 031463 
2011 005452 007417 FXDAT6: 007417 
2012 005454 000477 FXDAT7: 000477 
2013 
2014 
2015 005456 F DONE : 
2016 005456 104413 RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 
2017 7SEE IF THE USER HAS EXPRESSED 
2018 ¢ THE DESIRE TO CHANGE THE SOFTWARE 
2019 VIRTUAL CONSOLE SWITCH REGISTER (HAS 
2020 ;THE USER TYPED CONTROL G?). 
335 
2023 IIIT II II HII III TTI ITI TIC ITE KC SCTE I TC TTT TTT TT TO IR TK Kk ee 
Sos ;STEST 7 FSRC MODE 0 TEST 
5027 THIS IS A TEST OF FSRC MODE ZERO USING THE LDD AND LDF INSTRUCTIONS. 
2 
2028 PPETIIII LILI LLIL LLL ELE EEL LET LETTE LETTE TTT TTT 
2029 005460 000004 TST7: SCOPE 
Soe 005462 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
2032 005464 I1: 
2033 005464 170011 SETD :SET FD. 
2034 005466 012700 006274 MOV #IDATIO,RO 
2035 005472 012701 006244 MOV #IPAT10,R1 
2036 005476 012702 000004 MOV #4 ,R2 
2037 005502 012120 I2: MOV (R1)+,(RO)+ SET UP THE INPUT DATA BUFFER. 
See 005504 077202 SOB R2,12 
2040 005506 012700 006274 MOV fh pgs RO sLOAD AC1 
2041 005512 172510 LDD (RO) ,ACi 
2043 005514 012700 006254 MOV a RO ;LOAD ACO 
2044 005520 172410 LDD ),AC6 
2046 005522 012701 000001 MOV #1,R1 zIN CASE THE FSRC FLOWS FAIL 
2047 005526 012737 006044 000004 . MOV MIERRO,@#ERRVECT zAN ODD ADDRESS TRAP TO 4 MAY OCCUR. 
2048 005534 012737 005542 001236 MOV = #13, a#STMP2 
2049 005542 172401 13: LDD AC1,ACO 7TEST INSTRUCTION. 
2050 005544 000240 14 NOP 
Aire 005546 000240 15 NOP 
2053 005550 012700 006264 MOV #IDATOO,RO 


2054 005554 174010 a STD ACO, (RO) GET ACO, THE RESULTS. 
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#IDATOO,RO SEE IF DATA IS CORRECT. 
aa 


#4 R2 
(RO)+,(R1)+ 
1105 


#IDATO2,RO SEE IF (BUT FD) FAILED. 
#2,R2 


(RO) + 
110 


006270 #IDATO2,RO 
000002 #2,R2 
177777 : - M=1,(RO)+ 


006126 
es: 


. 110: 
006146 1106: a#TERR2 


1105: R2,16 
;NOW TEST THE LOAD INSTRUCTION WITH FSRC MODE ZERO AND FD CLEAR. 


111: 
;SET UP THE LOOP ON ERROR ADDRESS. 


112: #IPAT10,RO 
#IDATIO,R1 


#4,R2 
113: (RO)+,(R1)+ 
077202 R2,113 


012700 006274 #IDATIO,RO ;SET UP AC1 
172510 (RO) ,AC1 


012700 006254 #IPAT20,R0 SET UP ACO 
172410 (RO) ,ACO 


012701 000001 #1,R1 
012737 005722 001236 #114, Q4$TMP2 
170001 :CLEAR FD. 


172401 é AC1,ACO TEST INSTRUCTION. 
000240 : 


RO :SEE IF FPS IS STILL CLEAR. 
#4 RO 

117 

a4 IERR3 


RESET TO DOUBLE MODE. 





CJKDCA=A_KEF11=-A FP DIAG PART 1 


CJKDCA.P11 


nm 
_ 
=" 
_ 


ad cad ad ad ce ea end ed 
OWNAUSWI 


Oe ee ee ed ed ed nd ed wd 
BIKAKUYSSSSVRGRANLS 


POPINPINENDMNONMNIMaN NNN No NngaNononononononon runofors 


Ww 
0 


2150 


NONMIMON INN NNN NNN NNN” 
ed ed ed ed od od = od 
SSFSERZSESY VV 

MEW —O OONOUS WA 


08-JUN-79 


012700 
174010 


012737 


077217 
000° 20 


022716 
001413 


08:40 

006264 
177777 
177777 
006264 
006274 
000004 


MACY11 5 ait 


006300 
006302 


006250 


096252 


001240 
001242 


001242 
901244 


001244 
001246 
001250 


001244 


120: 


SOB R2,120 
BR IDONE 
:1F AN ODD ADDRESS TRAP OCCURS COME 
IERRO: CMP #14, (SP) 
BEQ 
CMP #15, (SP). 
BEQ 1$ 
CMP #115, (SP) 
BEQ 1$ 
CMP #116, (SP) 
BEQ 


sREPORT 
IERR2: 


IERR25: 
1$: 


IERR4: 


C 4 
1i=JUN=79 11:50 PAGE 41 
FSRC MODE 0 TEST 


MOV #IDATOO,RO 
STD ACO, (RO) 


MOV #-1 ,-AIDATI2 
MOV #-1 ,A#IDATI3 
MOV #IDATOO,RO 
MOV ie Stes 


MOV #4 R 
CMP (RO)+,(R1)+ 
BEQ 123 


CMP @AIDATO2 ,AAIPAT12 
122 


@A#IERR1 
CMP rane re 
JMP @AIERRS 


JMP @4CPSPUR 

MOV (SP) ,aA#$STMP2 

MOV #627 ,BASTMPS 

MOV #320 ,a4STMP4 

CMP gman hares 
IDONE 

DATA ERROR. 


MOV M#IDATIO, a#$TMP4 
MOV #IDATOO, a#$TMPS 


ERROR 4 

IDONE 
FAILURE OF (BUT FD) 
MOV #153, Q4STMPS 


MOV #434 ,QASTMP6 
MOV 4435 ,QASTMP7 


ERROR 1 
BR IDONE 
MOV #153, a4STMP5S 


;GET ACO 


SEE IF ACO WAS CORRECT. 


:DID (BUT FD) FAIL? 


NO ERRORS. 


HERE TO ANALYZE THE FSRC FAILURE. 
MAKE SUR 


: E THE TRAP OCCURRED 
ON THE INSTRUCTION BEING TESTED. 


sREPORT FAILURE. 


SEQ 0041 


4 
CJKDCA=A_KEF11=-A FP DIAG PART i MACY11 mpg  WOse) at eb 11: ag PAGE 42 
CJKDCA.P11 08-JUN-79 08:40 17 SRC MODE 0 TEST 


012737 000435 4 MOV #435, QASTMPE 
012737 000434 5 MOV #434 a4$TMP7 
000764 BR RR25 
INCORRECT FPS AFTER LOAD INSTRUCTION. 
012737 005722 é #114, a4$TMP2 
010037 001240 RO, AASTMP3 
#4, AASTMPS 


1 
IDONE 
IPAT10: 0 


052525 IPAT13: 
177777 IPAT20: 


IPAT23: 


IDATOO: 
IDATO1: 
IDATO2: 
IDATO3: 


IDATIO: 
IDATI1: 
IDATI2: 
IDATI3: 


IDONE : 


oooo COCCOO°O 


:GO_ INITIALIZE THE FPS AND STACK; AND 

SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
{THE USER TYPED CONTROL G?). 


UII IOI IOIOIOIOISI OID IOI IIIT I ITT OT I TOTTI TI TOT STOTT IT TE 
: TEST 10 FDST MODE 0 TEST 
j*THIS IS A TEST OF THE STORE INSTRUCTIONS, STD AND STF, WITH FDST MODE 0. 


SEK EKER KKK KKK EEK ERE EERE KKEREKKEKEEREREKREEEEEEEEKEKEKEE 


110: 
:SET UP THE LOOP ON ERROR ADDRESS. 
007036 #TPAT10,RO : 


7066 gait. R1 
000004 


CROs, (R1)+ :SET UP THE INPUT DATA BUFFER. 


| 
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012700 007066 #TDATIO,RO ZLOAD ACO 
172410 (RO) ,ACO 


012700 007046 taap Ar RO ;LOAD AC1 

172510 ),ACi 

012701 000001 #1,R1 ;IF THE (BUT FDST) FORK FAILS 
006644 000004 ATERRO, a#ERRVECT ;AN ODD ADDRESS TRAP COULD RESULT. 
006370 001236 , #13 .aa$TMP2 


007056 #TDATOO,RO 
174110 ACT, (RO) 3GET THE DATA. 


012703 #TDATOO,R3 SEE IF THE DATA IS CORRECT. 
127 ge Na 


#4,R 
(R3)+, (RG)+ 
105 


ATDATO2,R3 :DID (BUT FD) FAIL? 
#2,R5 
17: (R3)+ 
T10 
@ATERR1 
T10: R5,17 
006746 @ATERRZ 
077516 1105: R5,16 
:NOW TEST THE STF ACO.AC1 INSTRUCTION. 


T11: 
104414 ;SET UP THE LOOP ON ERROR ADDRESS. 


007036 Tle: #TPAT10,RO SET UP THE INPUT DATA BUFFER. 
Han a ae 


4 
113: (RO) +, (R1)+ 
077292 R2,113 


012700 MOV #TDATIO RO :SET UP ACO 
172410 ),ACO 


012700 007046 #TPAT20, RO ;SET UP ACI 
172510 3 ) ACI 


012701 000001 #1,R1 
006526 001236 #714 ,Q4STMP2 


ACO,AC1 


CLEAR FD 





4 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 moa O3e? 1i=JUN=79 11: ae " PAGE as 
CJKDCA.P11 08-JUN-79 08:40 710 FDST MODE 0 TEST SEQ 0044 


CLR R 
STFPS 0 sSEE IF FPS IS CLEAR. 
000010 Haas 


170011 ; :SET FD. 


012700 007056 #TDATOO,RO 
174110 ACT, (RO) :PICK UP AC1. 


012737 177777 007072 #-1 ,AATDATI2 
007074 #~1 ,AATDATIS 

ATDATOO,R3 

ATDATIO,R4 


#4 R5 
(RS)+, (R4)+ zWAS THE DATA TRANSFERRED CORRECTLY? 


023737 007042 @ATDATO2 ,a#TPATI2 :DID (BUT FD) FAIL. 
001401 a T22 


000440 BR TERR1 
023737 007044 T22: @ATDATOS ,@ATPAT13 
001373 T21 

000456 TERR4 


077515 T23: R5,720 
000515 BR TDONE 


; TRAP HERE THROUGH VECTOR 4 IF AN ODD ADDRESS OCCURS. 
022716 006372 TERRO: CMP #14, (SP) MAKE SURE THE S_ON 
001413 B 1 AN INSTRUCTION ‘BEING TESTED. 


006374 #15, (SP) 
006530 #115, (SP) 
006532 MP #716, (SP) 
062566 @4CPSPUR 


001236 1$: (SP) ,aASTMP2 
(SP)+,(SP)+ 

000527 001240 #527 ,aASTMP3 

000640 001242 Ore ASTIPS 


2$: 
TDONE 


i DATA FAILURE. 
012737 007066 001242 ATDATIO, a#$TMP4 
012737 007056 001244 #TDATOO. a#$TMP5 
104001 1$: R 1 
000454 TDONE 
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CJKDCA.P11 08-JUN-79 08:40 710 FDST MODE 0 TEST 


REPORT FAILURE OF (BUT FD). 

001246 TERR2: MOV 160,04 

001250 MOV 

001244 TERR25: MOV #640, a4$TMPS 
1$: ERROR if 


BR TDONE 

000161 001246 TERR4: MOV #161 ,a#STMP6 

000160 001250 MOV #160, a4$TMP7 
BR TERR25 


thats INCORRECT FPS AFTER STORE INSTRUCTION. 
006530 001236 , #115, a4STMP2 

001240 RO, a#$IMP3 

000010 001242 MOV #10, aWSTMP4 


1$: 
TDONE 
TPAT10: 0 
TPAT11: 
TPATI2: 
O5554 TPAT13: 
177777 TPAT20: 
177777 TPAT21: 
177777 TPAT22: 
177777 TPAT23: 


TDATOO: 


TDATO3: 
TDATIO: 


oooo CCOO 


TDATI3: 
TDONE : 


P *] 
wn 
mn 
_ 
S 


oy ae ha ta THE FPS AND c AND 


so E 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FARRER EERE REE ERE EEE EEE EERE ERE EEREREEEEERERRKKEK KE 


;HTEST 11 ACCUMULATORS DATA PATTERNS TEST 


eTHIS IS A TEST OF THE FLOATING # ged PROCESSOR ACCUMULATORS. 
>*EACH ACCUMULATOR IS TESTED IN TWO WAYS: 
i 1 He PATTERN i BY FLOATING A ONE ACROSS 


** 


FIELD OF ZEROES 
td 2 Test PATTERN GENERATED BY FLOATING A ZERO ACROSS 
























000004 
$ioe 007102 170011 
2397 007104 012737 
012700 



















004737 
2402 ae 012703 
2404 007134 172410 
174000 


2406 007140 172400 
2407 007142 174011 
004737 


2408 007144 

2409 

2410 007150 005737 
2411 007154 001004 


2422 007212 077330 


2423 
2424 
2425 007214 012737 
2426 007222 012700 


00473 
2430 007240 012703 
2432 007244 172410 
174000 














007134 001236 
011002 


011042 


010650 
000102 


010746 
010776 
010776 


010726 


007244 
011012 
011042 


010650 
000102 


010746 
010776 
010776 





069006 
000004 
000002 


001236 


CJKDCA=A_ KEF11-A FP DIAG PART 1 MACY11 heat 
CJKDCA.P11 08=JUN-79 08:40 


A FIELD OF ONES. 


H 
1i=JUN=79 11:50 PAGE 46 
ACCUMULATORS DATA PATTERNS TEST 





: EACH OF ACCUMULATORS ACO THROUGH AC5 IS TESTED. 


SERRE ERE ERE EREEEREEREREEREEREREERRE ERE 


+8111: SCOPE 
SETD sSET FD. 
; TEST sat” ect OQ WITH FLOATING ONE 
#G1,a4$STMP2 
mov #GPATOO, RO 
MOV #GDATOO,R1 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, @4GSETUP ;LOAD TEST PATTERN. 
MOV #102,R3 
G1 
LDD (RO) ,ACO 
STD ACO,ACO 
LDD ACO,ACO ; STORE THE TEST PATTERN. 
STD ACO, (R1) 
JSR PC, a4GCMP COMPARE THE DATA READ WITH 
z THAT WHICH WAS WRITTEN. 
TST @4GFLAG1 
BNE G 
COM @AGFLAG1 
SEC 
BR G3 
G2: CLE 
G3: ROL 6(RO) GENERATE THE NEXT TEST PATTERN. 
ROL 4(RO) 
ROL 2(RO) 
ROL (RO) 
JSR PC ,@AGRESET a PATTERN IN OUTPUT 
7BU i 
$08 R3,G1 
7 TEST ACCUMULATOR 0 pl FLOATING ZERO 
MOV 464 ,aASTMP2 
MOV #GPAT10, RO m 
MOV #GDATOO,R1 
LPERR 7SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,@4GSETUP ;LOAD TEST PATTERN. 
- MOV #102,R3 
LDD (RO) ,ACO 
STD ACO,ACO 
LDD ACO,ACO STORE THE TEST PATTERN. 
STD ACO, <«R1) 
JSR PC, a4*GCMP ; COMPARE THE DATA READ — 
s THAT WHICH WAS WPITTEN 
TST arGFLAGT 


G6: 


@4GFLAG1 


6(RO) GENERATE THE NEXT TEST PATTERN. 
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‘. 4 
1i=JUN=79 11:50 PAGE 47 
ACCUMULATORS DATA PATTERNS TEST 


CJKDCA.P11 08=JUN-79 08:4 
2447 0073146 006110 ROL (RO) 
ghu8 007316 004737 010726 JSR PC, @4GRESET :RESET DEFAULT PATTERN IN OUTPUT 
3450 007322 077330 SOB R3,G64 
2452 :TEST ACCUMULATOR 1 WITH FLOATING ONE 
2453 007324 012737 007354 001236 MOV #G7, aA#STMP2 
2454 007332 012700 011002 MOV #GPATO0,RO 
2455 007336 012701 011042 MOV #GDATOO.R1 
2456 007342 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
2457 007344 010650 JSR PC ,a#GSETUP :LOAD TEST PATTERN. 
2458 007350 012703 000102 MOV #102,R3 
2459 007354 G7: 
2460 007354 172410 LDD (RO) ,ACO 
2461 007356 17400 STD ACO,AC1 
2462 007360 172401 LDD AC1,ACO :STORE THE TEST PATTERN. 
2463 007362 174011 STD ACO, (R1) 
2464 007364 004737 010746 JSR PC, a4#GCMP ZCOMPARE THE DATA READ WITH 
2465 ; THAT WHICH WAS WRITTEN. 
2466 007370 005737 010776 TST @AGFLAGI 
2467 007374 001004 BNE 610 
2468 007376 005137 010776 COM @4GFLAG1 
2469 007402 000261 SEC 
2470 007404 000401 BR 611 
2471 007406 000241 G10: CLC 
2472 007410 006160 000006 G11: ROL 6(RO) ;GENERATE THE NEXT TEST PATTERN. 
2473 007414 006160 000004 ROL 4 (RO) 
2474 007420 006160 000002 ROL 2(RO) 
2475 007424 006110 ROL (RO) 
2476 007426 004737 010726 JSR PC, a#GRESET :RESET DEFAULT PATTERN IN OUTPUT 
2478 007432 077330 SOB R3,G7 
2480 :TEST ACCUMULATOR 1 WITH FLOATING ZERO 
2481 007434 012737 007464 001236 MOV G12, a4$TMP2 
2482 007442 012700 011012 MOV #GPAT10,RO 
2483 007446 012701 011042 MOV AGDATOO.R1 
2484 007452 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2485 007454 004737 010650 JSR PC ,a#GSETUP :LOAD TEST PATTERN. 
2486 007460 012703 000102 MOV #102,R3 
2487 007464 G12: 
2488 007464 172410 LDD (RO) ,ACO 
2489 007466 174001 STD ACO,ACI 
2490 007470 172401 LDD AC1,ACO :STORE THE TEST PATTERN. 
2491 007472 174011 STD ACO, (R1) 
2492 007474 737 010746 JSR PC, a#GCMP :COMPARE THE DATA READ WITH 
2493 STHAT WHICH WAS WRITTEN. 
2494 007500 005737 010776 TST @AGFLAG1 
2495 007504 001004 BNE 13 
249% 007506 005137 010776 COM a4GFLAG1 
2497 007512 000241 CLC 
2498 007514 000401 BR G14 
2499 007516 000261 G13: SEC 
2500 007520 006160 000006 G14: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
2501 007524 006160 000004 RO! 4(RO) 
2502 007530 006160 000002 ROL 2(RO) 


SEQ 0047 


J 4 
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006110 ROL (RO) 
004737 010726 JSR C,@AGRESET 72 | laeeatl PATTERN IN OUTPUT 


077330 SOB R3,G12 


; TEST ACCUMULATOR 2 WITH FLOATING ONE 
012737 007574 001236 MOV #615, a#STMP2 
012700 011002 #GPATOO,RO 
AES 011042 MOV AGDATOO,R1 
: ;SET UP THE LOOP ON ERROR ADDRESS. 
boc?3? 010650 S PC ,@4GSETUP ;LOAD TEST PATTERN. 
012703 000102 #102,R3 
172410 (RO) ,ACO 
174002 ACO,AC2 
oat. ;STORE THE TEST PATTERN. 
010746 PC, @4GCMP ; COMPARE THE DATA READ WITH 
; THAT WHICH WAS WRITTEN. 
010776 <> saat 


010776 @4GFLAG1 


000006 GENERATE THE NEXT TEST PATTERN. 
000004 
000002 


(RO) 
010726 PC ,@#GRESET te PATTERN IN OUTPUT 


077330 R3,G15 
TEST ACCUMULATOR 2 WITH FLOATING ZERO 
MOV 4620 ,aASTMP2 


#GPAT10,RO 
#GDATOO,R1 


012737 pS 001236 


;SET UP THE LOOP ON ERROR ADDRESS. 
004737 PC ,a#GSETUP :LOAD TEST PATTERN. 
012703 0 #102,R3 


172410 (RO) ACO 
174002 A 2 
ACG? re :STORE THE TEST PATTERN. 
010746 PC ,@4GCMP COMPARE THE DATA READ WITH 
: THAT WHICH WAS WRITTEN. 
010776 2 


010776 @4GFLAG1 


GENERATE THE NEXT TEST PATTERN, 





CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 7 we? 


CJKDCA.P11 
007754 


08-JUN-79 08:40 


006110 
004737 


077330 
012737 
0127 


004737 
012703 
172410 
174 


004737 
012703 
172410 
010746 


010776 
010776 


K 
1i=JUN=79 11:50 PAGE 49 
ACCUMULATORS DATA PATTERNS TEST 


ROL (RO) 
JSR PC ,@4#GRESET 


SOB R3,G620 
3TEST ACCUMULATOR 3_ WITH FLOATING ONE 
MOV #G23,a4$STMP2 


A#GPATOO RO 
#GDATOO,R1 


PC, a#GSETUP 
#102,R3 


(RO) ,ACO 


o 


ACO, (R1) 
PC, a4GCMP 


— 
@AGFLAG1 


RESET DEFAULT PATTERN IN OUTPUT 
BUFFER. 


001236 


:SET UP THE LOOP ON ERROR ADDRESS. 


LOAD TEST PATTERN. 


STORE THE TEST PATTERN. 


COMPARE THE DATA READ WITH 
: THAT WHICH WAS WRITTEN. 


GENERATE THE NEXT TEST PATTERN. 


(RO) 
PC ,@4GRESET 
R3,G623 


RESET DEFAULT PATTERN IN OUTPUT 
BUFFER. 
; TEST ACCUMULATOR 3 WITH FLOATING ZERO 

MOV #626 , aASTMP2 


#GPAT10,RO 
#GDATOO,R1 


PC ,@4#GSETUP 


#102,R3 
(RO) ,ACO 
ACO,AC3 


001236 


SET UP THE LOOP ON ERROR ADDRESS. 
LOAD TEST PATTERN. 


STORE THE TEST PATTERN. 


COMPARE THE DATA READ WITH 
3 THAT WHICH WAS WRITTEN. 


PC ,a4GCMP 
@4GFLAG1 
G27 
@4GFLAG1 


GENERATE THE NEXT TEST PATTERN. 





CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 oP 
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CJKDCA.P11 


010174 
010176 


010202 


010244 
010250 


010312 


010314 


08-JUN- 
006110 


004737 
077530 
012737 
004737 
012703 
172410 
174004 


077330 


012737 


4737 
012703 
172410 
174 


010726 


010746 
010776 
010776 


010746 
010776 
010776 


L 
1052) 1i=JUN=79 11:50 


PAGE 50 
ACCUMULATORS DATA PATTERNS TEST 


ROL (RO) 
JSR PC ,@4GRESET 


SOB R3,626 


TEST ACCUMULATOR 4 WITH FLOATING ONE 
MOV #G31,a4STMP2 


AGPATOO,RO 
AGDATOO.R1 


PC ,@AGSETUP 
#102,R3 


(RO) ,ACO 
ACO,AC4 


:SET UP 


RESET DEFAULT PATTERN IN OUTPUT 
BUFFER. 


THE LOOP ON ERROR ADDRESS. 
;LOAD TEST PATTERN. 


;STORE THE TEST PATTERN. 


COMPARE THE DATA READ WITH 
THAT WHICH WAS WRITTEN. 


PC ,@4GCMP 
ie 
@4GFLAG1 


(RO) 
PC ,@4GRESET 
R3,G631 


3 TEST ACCUMULATOR 4 WITH FLOATING ZERO 
MOV #634 ,QASTMP2 


#GPAT10,RO 
#GDATOO,R1 


PC ,a#GSETUP 
#102,R3 


(RO) ACO 
0,AC4 


3SET UP 


GENERATE THE NEXT TEST PATTERN. 


RESET DEFAULT PATTERN IN OUTPUT 
BUFFER. 


THE LOOP ON ERROR ADDRESS. 
;LOAD TEST PATTERN. 


STORE THE TEST PATTERN. 


COMPARE THE DATA READ WITH 
3 THAT WHICH WAS WRITTEN, 


PC ,@4GCMP 
aye 
@4GFLAG1 


GENERATE THE NEXT TEST PATTERN. 


SEQ 0050 





CJKDCA=A_KEF11-A FP <oy PART 1 MACY11 + Natal 
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08-JUN-79 


006110 
004737 


077330 


012737 


37 
012703 
172410 


37 
012703 
172410 


010726 


010454 
011002 


010746 
010776 
010776 


000006 
000004 
000002 
010726 


010564 
2 


010746 
010776 
010776 


000006 
000004 
000002 


001236 


001236 


G37: 


G40: 
G41: 


G42: 


G43: 
G44: 


M 4 
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ACCUMULATORS DATA PATTERNS TEST 


ROL (RO) 

JSR PC, a4GRESET :RESET DEFAULT PATTERN IN OUTPUT 

S0B R3,G634 

;TEST ACCUMULATOR 5 WITH FLOATING ONE 

MOV 4637, a4$TMP2 

MOV #GPATOO,RO 

MOV #GDATOO.R1 

LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC ,a#GSETUP :LOAD TEST PATTERN. 

MOV #102,R3 

LDD (RO) ACO 

STD ACO,ACS 

LDD AC5,ACO ;STORE THE TEST PATTERN. 

STD ACO, (R1) 

JSR PC, @#GCMP ZCOMPARE THE DATA READ WITH 
: THAT WHICH WAS WRITIEN. 

TST @4GFLAG1 

BNE 4 

COM @AGFLAG) 

SEC 

BR G41 

ROL 6(RO) ZGENERATE THE NEXT TEST PATTERN. 

ROL 4 (RO) 

ROL 2(RO) 

ROL (RO) 

JSR PC, @#GRESET {RESET DEFAULT PATTERN IN OUTPUT 

SOB R3,G37 

;TEST ACCUMULATOR 5 WITH FLOATING ZERO 

MOV 4642, a4STMP2 

MOV #GPAT10,RO 

MOV #GDATOO.R1 

LPERR 7SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC ,a#GSETUP ;LOAD TEST PATTERN. 

MOV #102,R3 

LDD (RO) ,ACO 

STD ACO,ACS 

LDD AC5S.ACO ;STORE THE TEST PATTERN. 

STD ACO, (R1) 

JSR PC, a4#GCMP :COMPARE THE DATA READ WITH 
:THAT WHICH WAS WRITTEN, 

TST @4GFLAG1 

BNE G 

COM a4GFLAG1 

CLC 

BR G44 

ROL 6(RO) ;GENERATE THE NEXT TEST PATTERN. 

ROL 4 (RO) 

ROL 2(RO) 


SEQ 0051 


CJKDCA=A_KEF11-A FP sp 1 MACY11 apt tose? 11=JUN=79 11:50 


CJKDCA.P11 08-JUN-79 


010634 
010636 


010642 


010644 


010724 
010726 


010742 


010746 
010752 
010756 
010762 
010764 
010766 
010770 
010772 
010774 


006110 
004737 


077330 
000137 


012705 
012704 
005025 
077402 


012705 
012704 
005125 
077402 
020067 
001401 
000207 
012705 
piers 
005125 
077402 
000207 
012705 
012704 
005025 
077402 
000137 
011637 
012705 
012704 
10002 


010726 


011052 


010776 
000026 
011012 
000010 
000076 


011042 
000004 


PAGE 52 
ACCUMULATORS DATA PATTERNS TEST 


ROL (RO) 
JSR PC ,@4GRESET te PATTERN IN OUTPUT 


SOBs R3.G642 . 


JMP @4GDONE 


USE THIS ROUTINE TO INITIALIZE ALL THE DATA BUFFERS. 
GSETUP: aad AGFLAG1,R5 


1$: CLR 
0B 
A#GPAT10,R5 
#10,R4 
(R5)+ 
R4,2$ 
RO,GPATOO 
3$ 
PC 
3$: AGDATOO,RS 
#4 RG 
4$: (R5)+ 
SOB R4,4$ 
PC 


GRESET: AGDATOO,R5 
MO #4 RG 


DATA WRITTEN MATCHES THE DATA READ. 
V (SP), 9p STORE ERROR PC 
#GDATOO,R 


RO.R2 
(R2)+, (R5)+ 
2$ 


I - PROBABLY BAD MMU, OTHERWISE IT IS THE FP CHIP 
PC’ 


GFLAG1: 
GFLAG2: 


GPATOO: 


GPATOS: 








B 5 
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08:40 ACCUMULATORS DATA PATTERNS TEST 


CJKDCA.P11 


08-JUN-79 
177777 


177777 
177777 


177777 
000000 
000000 
000000 
000000 


000000 
000000 
000000 


104413 


000004 
104414 


077302 
004767 
170011 
012700 


012700 


000422 


011606 


011616 


oooo CCOO°O 


GDATO3: 


GDONE : 


:GO wr A THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

: THE DESIRE 10 CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


FARRER ERR EERE ERE REE ERE EEE KEKE KEE KEREKKEEREKEEEE 


: TEST 12 FPP ACCUMULATORS DUAL ADDRESS TEST 


eTHIS TEST PERFORMS A DUAL ADDRESSING TEST ON THE FLOATING ACCUMULATORS. 
7*NOTE THAT ACCUMULATOR ZERO IS USED TO ACCESS ALL THE OTHERS. 


3 


BRC CIRC RIOT IIIS OS IIIS ISIS SISA IIS ISSSSS SAS 


TSTi2: 


H1: 


H2: 


PC,HCLR 


H3: SETD 
;LOAD ACCUMULATOR 1 
MOV #HA1W,RO 
LDD (RO) ,ACO 
STD ACO,AC1 
LOAD ACCUMULATOR 2 
MOV #HA2W RO 


;SET UP THE LOOP ON ERROR ADDRESS. 


INITIALIZE THE LOAD BUFFER DATA. 


CLEAR THE OUTPUT DATA BUFFER. 


SEQ 0053 
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172410 LDD (RQ) ,ACO 
STD ACO,AC2 
sLOAD ACCUMULATOR 3 
MOV HHA3W, 


RO 
LDD (RO) ,ACO 
STD ACO,AC3 
LOAD ACCUMULATOR 4 
011636 MOV MHA4W RO 
44 (RO) ,ACO 
STD ACO,AC4 
; LOAD oe 5 
011646 MOV HASW,RO 
LDD {ROD -ACO 
STD ACO,AC5 


011416 H4: JSR PC ,@4HSTD :GO READ ALL ACCUMULATORS BACK. 
011474 JSR PC ,@4HCMP SEE IF DATA IS CORRECT. 
; COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 1, 


RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
3; THE ee 


011626 


ata atabad ahabead abeb 
tata alaladh ababab abad 
Ww Nm 


tated abated ababad abad 
Qn WSL & 


ooo Oo00O COC OO 


011606 
000004 


H5: 


READ ALL_THE ACCUMULATORS BACK. 
:CHECK THE DATA. 


0 
0 
0 
0 
0 
0 
0 
0 
0 


a ed aed ed aed ad ad od ed 
ae ae aed ad ed aed ee eed ed 
MMMMNNN— 


RANVORRVON 


004737 
077210 
: COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 2, 
RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 


3 THE DATA. 
012700 MO 


H6: 


READ ALL_THE ACCUMULATORS BACK. 
CHECK THE DATA. 


Sooo0oo00o 

ah ad ed ad ad ad od ed ed 

ou and an cath on a a a a 
MN 


COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 3, 

RELOAD Th THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
011626 
000004 


ERE 
oo 
NNWO—-—MO 


H7: 


OQoooo0°0°o 
fk ed td od od 
ek ee ed ed ed ed ed 
N 
= 


’ READ ALL_THE ACCUMULATORS BACK. 
PC ,@A#HCMP CHECK THE DATA. 
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soe? 011306 077210 SOB R2,H7 
;COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 4 
;RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 


: THE DATA. 
011636 MOV 
0000 


H10: 


WWWWWIWNWG 
Wrenn 


SKSRRNSES 


READ ALL_THE ACCUMULATORS BACK. 
CHECK THE DATA. 


lelelelelelelelelo) 
aad and ath ab an an ab an anid 
an and at and and an end ed aad 


Wwe 


COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 5, 
:RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 


H11: 


BIBIBVBB 
NOUS WR O 
saunas 
ASMA 


By 
O00 


READ ALL_THE ACCUMULATORS BACK. 
:CHECK THE DATA. 


SSE 


0 
0 
0 
0 
0 
0 
0 
0 
0 


eee ee 
ee eee 


W 
N 
Nm 


011604 
011776 


011604 H12: 
011110 


:STORE ALL ACCUMULATORS IN THE OUTPUT BUFFERS. 
011532 HSTD: JSR PC,@4HCLR :CLEAR ALL OUTPUT BUFFERS. 
011656 ; STORE yeaa 1 


LDD 

174014 STD 
: STORE ACCUMULATOR 

2704 011666 MOV 


01 AHAQR, 
172402 LDD AC2, ACG 
174014 STD ACO, (R4) 

STORE ACCUMULATOR 8 
012704 011676 MOV 


172403 LDD 


174014 STD 
;STORE ACCUMULATOR 4 
012704 011706 MOV HHAGR RG 
172404 LDD AC4,ACO 
174014 STD ACO, (R4) 
:STORE ACCUMULATOR § 
012704 011716 MOV #HA5R,R 
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172405 LDD AC5 ACO 
174014 STD ACO, (R4) 
000207 RTS PC 


; COMPARE DATA LOADED WITH DATA READ. 
HCMP: MOV (SP)+, 


012637 011602 )+,@4HADR ;SAVE RETURN ADDRESS. 
011606 W,R 
011656 #HAIR.RS 
000024 MO #24,R 
HCMP1: (R3)+,(R4)+ 
HCMP2 
011550 J @AHERROR 


HCMP2: R5 ,HCMP1 
000050 J @HADR 


33 33S 
ad ce ced ce ed coed ce td ae 
DAAIUVIVIVI SS 


RRSBRORSH 


lelelelelelelelelo) 


;CLEAR THE DATA OUTPUT BUFFER. 
011656 HCLR: MOV AHAIR RS 
000024 MO #24,R5 
HCLRi: 
R5,HCLR1 
PC 


;REPORT 

HERROR: 
011606 #HAIW,R3 
901236 ASTMP2 ,R4 
000012 #12,R5 

1$: R3,(R4)+ 


000010 #10,R3 


° 


: 1 
011776 @AHDONE 


0 
0 
0 
0 
0 
0 
0 
0 
0 


a SY 3 ss 3 
Hs 
So VRAIS 


& 8 


000000 : 0,0.0,0 
000000 ai 0,0,0,0 
000000 fg 0,0,0,0 
000000 : 0.0.0.0 
000000 Fiow 0,0,0.0 


ROO 
pat on 


ARO 
FZ PILAAHVAS 


a Oo 


000000 soe 0.0.0.0 
000000 By 0,0,0.0 
000000 i, 0,0,0,0 
000000 ge 0,0,0,0 


SSE 


— 4 2 So a 2 3 WS os FS ss SH — ey 


SOOCOCCCOOOoO BDOOCOCOCCOOCSOO oO 
ataitaiwiabebabad eadeiadbeabaiabababad abad 


NNNOO 
= 
* 





F 
CJKDCA=A_KEF11=-A FP DIAG PART 1 MACY11 30A(1052) 17-JUN-79 11:50 PAGE 57 
CJKDCA.P11 08-JUN-79 08:40 T12 FPP ACCUMULATORS DUAL ADDRESS TEST SEQ 0057 


3007 000000 000000 000000 HASR: .WORD 0,0,0,0 
000000 


073567 073567 073567 HDAT1: .WORD 73567,73567,73567,73567 
063146 063146 HDAT2: .WORD  63146,63146,63146,63146 
010421 010421 HDAT3: .WORD 10421,10421,10421,10421 
031463 031463 HDAT4: .WORD  31463,31463,31463,31463 
042104 042104 HDATS: .WORD  42104,42104,42104,42104 


= 


oOo BOCOCOCOCCOCOoO CoO 
ait aiwiatwMateabwabatad aBeb 


NN a ee Pp “N 
RRO 


SSSSSSSS 

ak aad ah a anh ad ecb oad 
CONAUNESWH oO 
RRRRSE 


se 
Ye) 
R 


HDONE : 
104413 RSETUP :G0, INITIALIZE THE FPS AND STACK; AND 
“THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 


Sw 
ao 


FERRER RK ERR EERE KERR EERE EEEEERERKKE EK 


:#TEST 13 FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 


ieTHIS IS A TEST OF FSRC MODE 0 WITH ACCUMULATORS 6 AND 7. USE OF 
s*EITHER OF THESE NON-EXISTENT ACCUMULATORS SHOULD RESULT IN A TRAP TO 244 
sos tH FEC=2 (ILLEGAL OPCODE TRAP) 


Py 
s telecast 


rsr13: 
SET UP THE rie ON ERROR ADDRESS. 


7 SET 
012006 012512 #SPAT10,RO [LOAD ACO 
012012 172410 (RO) ,ACO 


012014 012737 012212 000244 ASERRO, a#FPVECT USE OF THE NON-EXISTENT AC- 
:CUMULATOR SHOULD RESULT IN 
, ZA TRAP TO 244. 
012022 012700 0600001 #1,R0 ZA FAILURE IN THE FSRC FLOWS 
[WILL RESULT IN AN ODD ADDRESS 
012026 012737 012422 000004 ASERR1 ,A@MERRVECT STRAP TO 4. 
0 005003 R3 


"172607 : LDD AC7,ACO 
170000 : 


005203 ; INC R3 
005203 : R3 


012701 012522 #SDATOO,R1 NO TRAP OCCURRED! ! 
012052 174011 ACO, (R1) “SEE IF ACO WAS MODIFIED. 


012054 012701 012522 ‘ #SDATOO,R1 
012060 012702 012512 #SPAT10,R2 
» 012064 012703 000004 #4 ,R3 





CJKDCA-A_ KEF11-A FP DIAG PAR 
CJKDCA.P11 79 08:4 


3063 


WINIWNNINANWNNWANNWWN 
kk ed ek dd td od od 9 od 
— So SS oOoo0o°o 


012212 
012216 
072220 
012224 


012232 
012236 


012250 
012252 


08-JUN- 


022122 
001402 


012701 
174011 


012701 


021627 
001402 
000137 
012737 


011637 
022626 
005004 


012352 


012376 


012512 
012270 
000001 
012454 


012522 


012522 
012512 
000004 
072364 
012410 


012040 
062534 
012106 
001236 


100209 


000002 
000216 


T 1 MACY11 30A(1052) 
0 113 


060244 
000004 


012506 


G 5 
11:50 PAGE 5 


11=JUN-79 8 
FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 
S5: CMP (R1)+,(R2)+ 
BEQ .=s«- $6 
JMP @ASERR2 :BAD DATA 
S6: S0B R3,S5 
JMP @ASERR3 ZMISSING TRAP 
iNOW TEST AC6. 
‘ LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
MOV #SPAT10,RO ZLOAD ACO 
LDD (RO) ACO 
MOV ASERRG ,A#FPVECT 
MOV #1, 
MOV ASERRS , AAERRVECT 
CLR R3 
58: LDD AC6,ACO 
59: CFCC 
INC R3 
$10 INC R3 
MOV #SDATOO,R1 
STD ACO, (R1) ZNO TRAP! GET ACO. 
MOV #SDATOO,R1 zWAS ACO MODIFIED. 
MOV #SPA110.R2 
MOV #4 ,R3 
$11: CMP (R1)+,(R2)+ 
BEQ $12 
JMP aASERRG 
$12: SOB R3,511 
JMP @ASERR7 
; TRAPPED TO 244. 
SERRO: coe (SP) .#S3 :PC OF TRAP CORRECT? 
JMP @AFPSPUR 
1$: MOV 4S7, @ASADR 
SERR10: MOV (SP) ,aASTMP2 
CMP (SP) +, (SP)+ 
CLR 4 
STFPS RG :1S FPS CORRECT? 
CMP #100200,R4 
BNE SERR15 
CLR R4 
STST RG :1S FEC CORRECT? 
CMP #2,R4 
BNE SERR20 
JMP @SADR 


SEQ 0058 


H 5 
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assoc 012144  § (SP) ,AS9 
001402 B 1$ 


062534 a4F PSPUR 
Ole 012532 : #SDONE , @#SADR 
013310 000750 SERR10 


REPORT FPS FAILUR 
012312 100200 v2 =SERR15: #100200, a4$TMP4 
001240 13 PAO , OAS TMPS 


012326 000154 


;REPORT FEC BAD: 
012332 006002 001242 SERR20: #2, dASTMPS 
012340 001240 R4 ,aA4STMP3 
1$: ROR 1 
000134 @SADR 


zACO_WAS MODIFIED. (BUT FSRC) FORK FAILED. 
012352 012036 001236 SERR2: MOV AS2 ,AASTMP2 
012360 104001 1$: ERROR 1 


012362 BR SDONE 
012364 012142 001236 SERR6: MOV #S8 ,AASTMP2 
012372 1$: ERROR 1 

012374 BR SDONE 


012376 012036 001236 SERR3: MOV #S2 ,aASTMP2 
1$: ERROR 1 


BR SDONE 
012142 001236 SERR7: MOV #S8 ,AASTMP2 
1$: ERROR 
012420 0004 BR SDONE 


FAILURE OF (BUT FSRC) CAUSED AN ODD ADDRESS TRAP TO 4. 
012422 1065 012040 SERR1: CMP (SP) ,AS3 :DID TRAP OCCUR ON TESTED INSTRUCTION? 


012044 Sty 
062566 @4CPSPUR 


011637 001236 S (SP) ,a4#$TMP2 
022626 MP (SP)+, (SP)+ 
104001 : 1 


012452 000427 ; BR SDONE 


012454 021627 012142 : ¢ (SP) #8 :DID TRAP OCCUR ON TEST INSTRUCTION? 
912462 012144 (SP) ,A#S9 

012466 1$ 

012470 000137 062564 ! @4CPSPUR 


012474 011637 001236 : (SP) ,aa#$TMP2 
012500 022626 CMP (SP)+,(SP)+ 
012502 104001 : 1 


WG 


“NNN 
RANASSSAKSAF 


WWNINWNNANWNWAW 





CJKDCA=A_KEF11-A FP ert 1 MACY11 sy Wel 


CJKDCA.P11 


3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 


WNNG 
pat et et et 


012504 


esssss 
Morororons 
GINS 
i on a 
aRroOK® 


12520 
012522 


012532 
012532 


012534 


012536 


012540 
012540 


012542 
012546 


012550 


012554 
012556 


012570 


012572 
012576 


ooo © 


012624 


08-JUN-79 
000412 


000000 
EAE EA 


000004 
104414 


170011 


012700 
172410 


012700 
005003 
012737 
172420 
005203 
005203 


012701 
174011 


022223 


013016 


012776 
012646 


013006 


012766 


012776 
013006 
000004 


000004 


SADR: 


SPAT10: 


SPAT13: 


SDATOO: 
SDATO1: 
SDATO2: 
SDATO3: 


SDONE : 


a. 
1i=JUN-79 11:50 PAGE 60 
FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 


SDONE 


:GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FERRER RRR REE KEKE EEE REE EERE 


sone 14 


ig a ge 


rST14: 


Ji: 


J2: 
J3: 


1$: 


JS: 


SCOPE 
LPERR 
SETD 


MOV 
LDD 


FSRC MODE 2 TEST 


:* THIS 1S A TEST OF FSRC MODE 2, AUTO 
;* INCREMENT MODE. 
-* 


FERRER ERE REE REE RE REEREKEKEKREKEEEERKRKEKEKEEKE KKK 


#JDATO,RO 
(RO) ,ACO 


“tae 
AJERRO, @#ERRVECT 
(RO) +,ACO 

R3 

R3 


#JDATOO,R1 
ACO, (R1) 


RO ,AJBUF 0 
JERR1 


A#JDATIO,R2 
#JDATOO,R3 


i, RG 
(R2) +, (R3)+ 


:SET UP THE LOOP ON ERROR ADDRESS. 


SET DOUBLE MODE 


LOAD ACO=ALL 1 


: TEST INSTRUCTION 


PICK UP RESULTS 


:WAS AN AUTO 
DECREMENT EXECUTED? 


:1S DATA CORRECT? 


SEQ 0060 


5 
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CJKDCA.P11 08-JUN-79 08:4 FSRC MODE 2 T 
3231 012626 001401 BEQ J6 
3232 012630 000443 BR JERR2 
Sez 012632 077404 J6: SOB R4,J5 
3235 012634 022700 013006 CMP AJDATIO+19,RO  ;WAS RO INCREM. 
3236 012640 00140? BEQ J7 :BY 10 (OCTAL) 
$3 012642 000424 BR JERR1 
34s 012644 000470 J?: BR JDONE 
$545 31F A TRAP THROUGH 4 OCCURS COME HERE 
3243 012646 pe lect 012566 JERRO: CMP (SP) ,A#J3 SEE IF THE TRAP 
3244 012652 001405 BEQ J10 SOCCURRED ON THE 
3245 012654 Spy 34 012570 CMP (SP) ,AJ4 TESTED INSTRUCTION 
3246 2660 001402 BEQ J10 
ot 012662 062566 JMP @4CPSPUR 
3249 2666 012737 000762 001240 J10: MOV #762 ,AASTMPS REPORT FSRC FLOW 
3250 012674 012737 000322 001242 MOV #322, aASTMPG 3FAILURE 
3251 012702 011637 001236 MOV (SP) ,a#$TMP2 
3252 012706 022626 CMP (SP)+, (SP)+ 
3253 012710 104001 1$: ERROR 1 
$52e 012712 000445 BR JDONE 
3256 012714 JERR1: zREPORT, RO NOT 
3257 012714 012737 012564 001236 MOV #J2,dASTMP2 CORRECTLY AFFECTED 
3258 012722 010037 001240 MOV RO, a#$TMP3 
3259 012726 012737 013006 001242 MOV #JDATI0+10 ,a#$TMP4 
3260 2734 104001 1$: ERROR 1 
ace3 012736 000433 BR JDONE 
3263 REPORT DATA FAILURE 
3264 
3265 012740 JERR2: 
3266 012740 012737 012564 001236 MOV #J2,QASTMP2 
3267 012746 012737 012776 001240 MOV #IDATIO,Q#STMPS 
3268 012754 012737 013006 001242 MOV #JDATOO, aASTMP4 
3269 012762 104001 1$ ERROR 1 
$550 12764 20 BR JDONE 
3272 2766 010421 JBUFO: .WORD 010421 
3273 012770 021042 JBUF 1: 021042 
3274 012772 042104 JBUF 2: 042104 
Soe 012774 031463 JBUF 3: 031463 
3277 012776 052525 JDATIO: 052525 
3278 013000 Beers JDATI1: 114631 
3279 013002 06314 JDATI2: 063146 
Sey 013004 073567 JDATI3: 073567 
3282 3006 000000 JDATOO: 0 
3283 013010 000000 JDATO1: 0 
3284 013012 000000 JDATO2: 0 
aH 013014 000000 JDATOS: 0 


SEQ 0061 


CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 sent Wee? 
79 08:40 


CJKDCA.P11 08-JUN- 
013016 177777 
013020 


013022 


013024 177777 


013026 
013026 104413 


013030 


000004 
013032 104414 


170011 


012700 
172410 


012700 
005003 
012737 
172440 
005203 
005203 


012701 
174011 


020027 
001001 
000441 
012702 


i=) 


022700 
001401 
000423 


WANA WWW WG 
RRS KRVSRSK 


013310 


013270 
013142 


013300 


013300 


013260 
013300 
000004 


013260 


000004 


5 
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FSRC MODE 2 TEST 


:GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

:THE DESIRE TO CHANGE THE SO 

VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


F TWARE 


FLERE RR E KEKE EEEREREKRREREREREKKEEREREEKREKKEE 


pened 15 


FSRC MODE 4 TEST 


:* THIS IS A TEST OF FSRC MODE 4, AUTO 
;* DECREMENT MODE. 
** 


FL KERR ERE EERE EEE EEK KEK 


ST15: 


K1: 


#KPATO,RO 
(RO) ,ACO 


#KBUF 0,RO 
R3 


AKERRO, @#ERRVECT 


-(RO) ,ACO 
R3 
R3 


#KDATOO,R1 
ACO, (R1) 


| (eltamathathig 
KERR1 


AKDATIO,R2 
#KDATOO,R5 


#4 RG 
(R2)+, (R3)+ 
K6 

KERR2 

R4 K5 

AKBUF 0-10,RO0 
K7 

KERR1 


;SET UP THE LOOP ON ERROR ADDRESS. 


SET DOUBLE MODE 


;LOAD A DEFAULT 
:PATTERN INTO ACO 


TEST INSTRUCTION 


:PICK UP THE RESULT 


;WAS AN AUTO 
: INCREMENT EXECUTED 


:1S DATA CORRECT? 


;WAS RO, DE CREMENTED 
;PROPER 





5 
CJKDCA=A KEF11-A FF DIAG PART 1 MACY11 30A(1052) 11-Jun-79 11: :50 | ace 63 
CJKDCA.P11 08=JUN-79 08:40 115 FSRC MODE 4 TEST 
013140 000467 K?: BR KDONE 
; TRAP TO HERE ON AN ODD ADDRESS ERROR 
021627 013062 KERRO: CMP (SP) ,AK3 :SEE IF THE ERROR 
B K sOCCURRED AT THE 
013064 (sp) AKG : INSTRUCTION TESTED. 
062566 @4CPSPUR 
012737 000762 001240 : #762,a4$TMP3 =: REPORT FAILURE IN 
012737 000324 001242 #324,a4STMP4 = :FSRC FLOWS 
011637 001236 (SP) ,a#$TMP2 
104001 : 1 
000445 BR KDONE 
: ZREPORT, RO 
012737 013060 001236 #K2, aASTMP2 s INCORRECTLY AFFECTED. 
007240 0, a4$TMP3 
013260 001242 #KDAT 10. a#STMP4 
: KDONE 


DATA FAILURE 


001236 "mo #k2, a#STMP2 


001240 AKDATIO , A$ TMP3 
013300 001242 MOV Satta eatinttiet 


KDONE 
052525 KDATIO: 034289 
114631 KDATI1: 
063140 KDATI2: 
073567 KDATI3: 073567 


010421 


013276 

013300 KDATOO: 
013302 KDATO1: 
013304 KDATO2: 
013306 KDATO3: 


013310 


013316 177777 


013320 K t 
013320 104413 :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 





5 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 — hg ny mF ie "PACE 64 
CJKDCA.P11 08-JUN-79 08:40 T15 FSRC MODE 4 


3 THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


SERRE REE KEKREKKEKEKEKEREEKEREKEKKKEKKAK 


STEST 16 FSRC MODE 2, WITH FD=0, TEST 


;* THIS IS A TEST OF FSRC MODE 2 WITH 
;* FD=0. (AUTO INCREMENT) 


** 

Tee 9 yma aaa one tac emnaene teint nie anes 
013322 000004 S SCOPE 
013324 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 


013326 : 
013326 170011 ;SET DOUBLE MODE 


012700 013576 A#LPAT10,RO 
172410 (RO) ,ACO ;LOAD ACO 


012700 013620 ALDATIO,RO SET UP THE INPUT 
012701 013606 #LPAT20,R1 :DATA 
012702 000004 #4 ,R2 


013352 012120 : (R1)+,(RO)+ 
013354 077202 R2,1$ 


013356 012700 013620 MOV A#LDATIO,RO 
013362 005003 CLR R3 
013364 170001 :CLEAR FD. 


013366 172420 : (RO) +,ACO 
013370 005203 : R3 


013372 : 
013372 170011 iSET FD 


013374 012701 013632 MOV #LDATOO,R1 
174011 ACO, (R1) PICK UP RESULTS 


020027 013624 RO,ALDATI2 zWAS RO_ INCREMENTED 
001401 1$ CORRECTLY BY 4 
000421 BR LERR1 


177777 =013624 2 #-1 ,AALDATI2 

177777 013626 #~1 ,@ALDATIS 

013620 A#LDATIO,R2 31S DATA CORRECT 
013632 A#LDATOO,R3 

000004 #4 ,R4 


pa Bete Ge Be os 


ed ws ed od Ld = 
to 
— 


PITTS ATT 
WOONAUSWN = 


mr 
No 


022223 : (R2)+,(R3)+ 
001401 L6 

000427 BR LERR2 
077404 : R4,L5 





N 5 
CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 11-JUN-79 11:50 PAGE 65 
CJKDCA.P11 08-JUN-79 08:40 716 FSRC MODE 2, WITH FD=0, TEST 


013452 000473 LDONE 
LERR1: REPORT FAILURE 
012737 001236 #L2 ,aASTMP2 zRO NOT INCREMENTED 
010037 RO, a#$TMP3 sBY 4 
012737 0 001242 MOV ALDATI2,a#$TMP4 
104001 : 1 
000461 BR LDONE 


REPORT DATA FAILURE. 


012737 013366 MO #L2 ,aASTMP2 
012737 ALDATIO,a#$TMP3 
012737 001242 MOV ALDATOO , a#STMP4 
104001 : 1 

013524 000446 BR LDONE 


013526 012702 0136 3 A#LPAT20,R2 DID (BUT FD) 
MO at sFAIL. 


8 
(R2)+, (R3)+ 
LERR3 


#L2, aASTMP2 
#LDATIO, a#$TMP3 
001242 “ #LDATO1 a#STMPS 
013574 ‘ 


013576 LPAT10: . 
013600 : 


177777 LPATI3: 
052525 LPAT20: 


LPAT23: 


LDATIO: 
LDATI1: 
LDATI2: 
LDATI3: 


LDATOO: 
LDATO1: 
LDATO2: 
LDATO3: 


LDONE : 
RSE TUP :GO ee THE FPS AND STACK; AND 
7SEE IF THE EXPRESSED 
; E SOF TWARE 
VIRTUAL CONSOLE SWITCH +} at (HAS 
THE USER TYPED CONTROL G?) 








CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 c+ Nae 1i=JUN=79 11:50 PAGE 66 
CJKDCA.P11 08-JUN-79 08:40 FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 


FERRARA EREEREREREEKEEREEEEEREEREEEEKKEEEEERERERERERE 


LATEST 17 FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 
3* 

:* THIS IS A TEST OF FSRC MODE 2 

;* ee GR7 (THE PC). THIS IS IMMEDIATE 


SEEKER ERR ERE REE KEEERERKEKEKEEEEEEEEEKEKEKE 


T17: SCOPE 


te 
:* 
18 


000004 


Mi: 
170011 SETD 


012700 014142 A#MPAT10 ,RO 
172410 (RO) ,ACO LOAD BACKROUND 
PATTERN INTO ACO. 


005004 R4 
012737 014102 000004 AMERR3 , @AERRVECT 
172427 000000 2 #0,AC0 TEST INSTRUCTION 
013670 ° sEFFECTIVELY: 05204 IS PUT IN THE FIRST 
005204 5204 316 BIT WORD, OR THE ‘EXP=FRACTION’’ WORD. 
005204 R4 sNOTE THAT 
005204 3005204=INC R4 
005204 
020427 SEE IF THE PC 
001401 1$ :WAS_INCREMENTED 
000443 sBY 2 DURING THE 
INSTRUCTION. IF 
NOT THEN A 


BAD 
CONSTANT WAS GENERATED 
013710 012700 014162 ; AMDATOO ,RO 
013714 174010 ACO, (RO) :GET THE DATA 


013716 oso 014162 AMDATOO ,RO 
005204 ne duet 31S THE DATA CORRECT? 


000003 


013744 
013746 014162 : #MDATOO, RO :DID (BUT GRM) FAIL? 
000004 1 
005204 : #5204  (RO)+ 


000433 BR MERR1 
077105 : R1,M8 


013770 MERR2: REPORT FAILURE 
013770 012737 4M15 ,QASTMP2 :OF (BUT GR7) 
012737 AMPAT 20 , a#STMP3 
012737 AMDATOO , a#$TMP4 





C 6 
CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 — 1i=JUN=79 11:50 PAGE 67 
CJKDCA.P11 08-JUN-79 08:40 FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 


014012 1$: ERROR 1 
014014 000466 BR MDONE 


014016 013672 : #M2,R5 REPORT FAILURE 
001242 MO RS ,aA#STMPS PC INCREMENTED 
000003 #3,R4 
R4 
R4,R5 
001240 R5 ,aASTMP3 
013666 001236 Poses 
014052 0004 BR MDONE 


014054 : REPORT DATA 
001236 4M15 ,aASTMP2 3 FAILURE 
001240 AMDATOO , aA#STMPS 
001242 18 ait 


BR MDONE 
; TRAP TO HERE THROUGH 4. 
032716 MERR3: BIT #1, (SP) sSEE_IF THE 
001002 BN 1$ : TRAP TO 4 — 
000137 @4CPSPUR BECAUSE OF 
:0DD ADDRESS 

011637 001240 : (SP) ,aA#$STMP3 :1F YES REPORT 

001242 BAD CONSTANT 
013666 001236 ; GENERATED 


599 
3600 
360. 
3604 
3606 
3608 
3609 


:GO_ INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE 


; 0 0 
VIRTUAL CONSOLE SWITCH elem (HAS 
THE USER TYPED CONTROL G?) 


RARRRERRRRRRRS 
NISSHNRARGV=AS 


DDR RK EEREEEREREEREEEEEEERERREREEEEKKKE 


:*TEST 20 FSRC MODE 3 TEST 





D 6 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 x” Vasa 11=JUN=79 bi tes PAGE 68 
CJKDCA.P11 08-JUN-79 08:40 T20 FSRC MODE 3 T 


THIS IS A TEST OF FSRC MODE 3, AUTO INCREMENT 
DEFERRED 


Se cere en Tee 


014174 000004 SCOPE 


014176 : 
014176 170011 SETD SET FD MODE 


012700 014660 MOV A#NPAT10,RO 
172410 LDD (RO) ,ACO ah Baty WITH A DEFAULT 


012700 014646 #NPAT20.RO : 


005003 
012737 014370 000004 ANERRO, @#ERRVECT :1F A FAILURE OCCURS 
;IN THE FSRC FLOWS AN 
[ODD TRAP TO 4 COULD OCCUR 
014222 172430 : a(RO)+,ACO TEST INSTRUCTION. 
014224 005203 : R3 
014226 005203 $ R3 


014230 012701 014626 A#NDATOO,R1 
014234 174011 ACO, (R1) GET THE DATA 


014236 014650 RO ,ANPAT 20+2 bay INCREMENTED 


014242 N12 
014656 : RO,ANPAT20+10  ;FSRC MODE 2? 
NERRI | 
014636 : RQ, ANPAT20-10 sFSRC MODE 4? 
NERR2 
014646 : RO, ANPAT20 
N11 


014626 ANDATOO,R2 zFSRC MODE 0? 
000004 #4 ,R3 
177777 : de, #-1 


RS, N8 
NERR3 


014626 : #NDATOO,R2 zFSRC MODE 1 
014646 ANPAT20.R3 
000004 #4 RG 

(Re) +, (R3)+ 

N 





E 6 
CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 Niet 1i=JUN=79 11:50 PAGE 69 
CJKDCA.P11 08-JUN-79 08:40 T20 FSRC MODE 3 TEST 


012702 014626 N12: #NDATOO,R2 :DATA CORRECT? 
014670 #NDATIO.R3 
000004 #4 RG 
(R2)+, (R3)+ 
N14 


R4 N13 
NDONE 


NERR6 


:1F AN ODD ADDRESS TRAP OCCURS COME HERE 
eto IF THE FAILURE WAS IN THE FSRC 


pee? is 014226 NERRO: : ANG , (SP) sFSRC MODE 6 OR 7? 
014224 


062566 @4CPSPUR 
014644 1$: R zFSRC MODE 5? 
NERR}1 


014416 37 062566 @ACPSPUR 


014422 pag NERR10: ;WENT TO FSRC 
011637 001236 MO (SP) ,a#$TMP2  § :MODE 6 OR 7. 
022626 MP (SP)+, (SP)+ 
104001 1$: 1 
000522 BR NDONE 


011637 001236 NERR11: (SP) ,@#STMP2 :WENT TO FSRC 
C (SP)+, (SP) + sMODE 5. 
001244 #627 , AASTMPS 
0 #323 ,a4STMP7 
13 G7e> BOTS 


BR NDONE 
NERR1: #322 ,AASTMP6 zFSRC MODE 2. 
NERR20: #627 ,QASTMPS 
000323 MO #323 ,QA#STMP7 
014222  iaeeatai 


BR NDONE 
000324 001246 NERR2: “ ey Pith zFSRC MODE 4 
000320 001246 : #8320 a4STMP6 sFSRC MODE 0 


NERR2O 
000321 001246 : a Se aati zFSRC MODE 1 


001240 : RO, a#$TMP3 jr NOT 
014650 001242 #NPAT20+2. a4$ TMP ; INCREMENTED 
014222 001236 ane 0° $TMP2 “PROPERLY 


104001 
000440 
DATA FAILURE. 





6 
CJKDCA=A_KEF11=-A FP DIAG PART 1 MACY11 30A(1052) 11=JUN-79 Bi “Ta * paGe 70 
CJKDCA.P11 U8=JUN-79 08:40 T20 FSRC MODE 3 T SEQ 0070 


012737 014222 001236 AN2 , AASTMP2 
012737 014626 001240 ANDATOO,a#$TMP3 
anennt 014670 001242 MOV ANDATIO,a#$STMP4 


: 1 
014624 000425 BR NDONE 


014626 000000 : 0 
000000 : 0 
000000 : 0 
000000 : 0 


232524 052525 052525 52525 ,52525 52525 ,52525 
NDATIO 


177777 


010421 NDATIO: . 
021042 NDATI1: 
031463 NDATI2: 
014676 042104 NDATI3: 042104 


014700 NDONE : 

014700 104413 :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH | aaa (HAS 
THE USER TYPED CONTROL G?) 


ZIG IOIIOIIISISIOIOIOIIOIOIOIIOIOIOI ICICI OI ITT TOTTI TOTTORI TOIT 
estESt 21 FSRC MODE 5 TEST 


:* THIS IS A TEST OF FSRC MODE 5, AUTO DECREMENT 
;* DEFERRED. 
-* 


5 LARK KKK KER ERK EEE REE EEE RE EKER EKER EKER 


014702 000004 T$121: SCOPE 


014704 O01: 
014704 170011 :SET FD MODE 


014706 012700 015364 #OPAT10,RO 
014712 172410 (RO) ,ACO LOAD ACO WITH A 


[DEFAULT PATTERN. 
014714 012700 015352 #OPAT21.RO 
014720 00500 C R 
014722 012737 015074 000004 #OERRO,@M#ERRVEC ;1F A FAILURE 
, ZOCCURS IN THE FSRC 
FLOWS AN ODD ADDR. 





G 6 
CJKDCA=A_KEF11<-A FP “ y PART 1 MACY%1 30A(1052) 1i=JUN-79 11:50 PAGE 71 
CJKDCA.P11 08-JUN-79 08:40 T21 FSRC MODE 5 TEST SEQ 0071 


TRAP TO 4 MAY OCCUR. 
014730 172450 : a-(RO) ,ACO [TEST INSTRUCTION 
014732 005203 : R3 
014734 005203 : R3 


014736 012701 015332 : MOV #ODATOO,R1 
014742 174011 ACO, (R1) GET THE DATA 


014744 015350 RO, #OPAT20 :WAS RO DECREMENTED 
014750 001436 012 ‘BY 2? 


014752 015362 : RO,MOPAT21+10 ;FSRO MODE 2 
014756 
014760 OERR1 
014762 015342 : RO,AOPAT21-10 ;FSRC MODE 4? 
014766 07 
014770 BR OERR2 
014772 015352 : RO,AOPAT21 
014776 015334 #ODATOI,R2 zFSRC MODE 0? 
000004 #4 ,R3 
177777 ¢ (Re)+, A-1 


RS, 08 
015016 000510 BR OERR3 


015020 : #ODATOO ,R2 z:FSRC MODE 1? 
#OPAT21,R3 


#4 RG 
(R2)+,(R3)+ 
011 


Se seneess 


et Pe Pt Pe be ber ber oe he Pet 
NM—OVONOUSWN—O 


38 
38 
38 
38 
38 
38 
38 
38 
38 
38 
38 
382 


AODATOO,R2 :DATA CORRECT? 
HODATIO.R3 
#4 RG 
(Re), (R3)+ 
R4,013 
ODONE 
014: OERR6 


:1F AN ODD ADDRESS TRAP OCCURS COME 
;HERE TO SEE IF THE FAILURE WAS IN THE 
:FSRC FLOWS: 


014734 OERRO: (CMP #04 , (SP) zFSRC MODE 6 OF 7? 
BEQ OERR10 
014732 + ate 





CJKDCA=A_KEF1I“A FP DIAG PART 1 MACY11 30A(1052) 
79 08:40 T21 


CJKDCA.P11 08-JUN- 

062566 
015354 
062566 


001236 


ooo GCOCOCOOCO CCOOCO 
— oS — Ss — > a 
WN RM 


NOUS SS 
oO 


000322 
000627 


000325 

014730 

000324 
015256 


015260 
15 


2737 
2737 


052525 


070707 


1$: 


OERR10: 
MO 


1$: 


OERR11: 
C 


1$: 


OERR1: 


OERR20: 


1$: 


1$: 


ODATOO: 


052525 


OPAT24: 


6 
17-JUN-79 mF: :50 "PACE 72 


FSRC MODE 5 


@4CPSPUR 

RO ,AOPAT21+2 
OERR1 
@4CPSPUR 
(SP) ,a#STMP2 
whe naties 
ODONE 

(SP) ,a#$TMP3 


#323, * aS TMPE 
ODONE 

#322, a4STMP6 
#627 .dASTMPS 
#325 .aASTMP7 
#02. aaSTMP2 
ODONE 

#324, @ASTMP6 
OERR20 

#320, aNSTMP6 


0 
#321 ,AASTMP6 
DERR20 


RO, a4 
a 
ODONE 


#02 ,a#$TMP2 


#ODATOO , a#$TMPS 
GORE ES AOS 


ODONE 


0 
0 
0 
0 


MP3 
mopar _ 


z*SRC MODE 3? 


WENT TO FSRC 
2MODE 6 OR 7 


ste TO FSRC MODE 


sFSRC MODE 4 
sFSRC MODE 0 
sFSRC MODE 1 


:RO NOT DECREMENTED 
PROPERLY 


DATA FAILURE 


$2525 ,52525,52525 
ODATIO 


070707 


SEQ 0072 





I 6 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 5 bet 1i=JUN=79 11:50 PAGE 73 
CJKDCA.P11 08-JUN-79 08:40 T21 FSRC MODE 5 TEST SEQ 0073 


. WORD 
- WORD 


015372 177777 
015374 073567 
004210 


114631 : 
015402 125252 : 125252 


015404 : 

015404 104413 :GO_INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


FEAR E RK EERE EEE EERE REERERRERERER EERE EE 


TATEST 22 *SRC MODE 6 TEST 

3* 

:* THIS IS A TEST OF FSRC MODE 6, INDEX MODE 
-* 


FREER EERE EEE REE EREEEEREEREEKEEERERRER EH 


015406 000004 18122: SCOPE 


015410 PTs 
015410 170011 SETD SET FD MODE 


015412 012700 016030 MOV #PPAT10,RO 
015416 172410 LDD (RO) ,ACO LOAD > ahaa PATTERN 


: INTO A 
015420 012737 015526 000004 #PERRO, @MERRVECT 7 IF THE (BUT FSRC) FORQ 
AILS AN ODD ADDRESS TRAP 
015426 012700 015577 #PDAT1I0-241,RO ‘COULD OCCUR. 


015432 172460 000241 Pe: 241(RO) ,ACO 
015434 P3=P2+2 


012701 016050 P4: MOV #PDATOO,R1 
ACO, (R1) 3GE1 THE DATA 


616080 
poets, antae CHECK THE DATA 


R3,P5 
015577 natalie RO CORRECT? 


PERR21 
016060 : @4PDONE 


012701 016050 : #PDATOO,R1 
012703 000004 #4 ,R3 
022721 177777 : #-1,(R1)+ zWAS IT FSRC MODE 0? 





J 6 
CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 11=JUN-79 11:50 PAGE 74 
CJKDCA.P11 08-JUN-79 08:40 T22 FSRC MODE 6 TEST SEQ 0074 


001401 
000512 
077305 
000523 
021627 015434 
001411 
021627 015436 MP é FSRC MODE 7? 
001402 
062566 
012737 000327 001246 PERR1I0: #327 ,AASTMP6 
000443 BR PERR17 
022700 015577 PERR11: #PDATI0=241,RO ;WAS IT FSRC MODE 7 
001004 PERR12 
012737 000321 001246 #321 ,@#STMP6 
000434 PERR17 
022700 015607 PERR12: #PDAT10-241+10,R0 WAS IT FSRC MODE 2 
001004 PERR13 
012737 000322 001246 #322, a4STMP6 
000425 BR PERR17 
022700 015601 PERR13: #PDAT10=241+2,R0 WAS IT FSRC MODE 3 
001004 PERR14 
012737 000323 001246 #323 ,a#STMP6 
000416 BR PERR 
022700 015567 PERR14: #PDAT10-241-10,R0 WAS IT FSRC MODE 4 
001004 PERR15 
AT 4 000324 001246 te at 


PERR1 
022700 015575 PERR15: CMP #PDAT1I0-241-2,R0 WAS IT FSRC MODE 5 
pene te PERR16 


000416 BR PERR20 
012737 001246 PERR16: 4325 ,aASTMP6 


012737 000627 001244 PERRI7: #627 ,AASTMPS REPORT FSRC 
001250 #326, Q4$TMP7 FLOWS FAILURE. 
(SP) ,@ASTMP2 
(SP)+,(SP)+ 
0157 1 1$: 1 
015710 0004 BR PDONE 
015712 011637 PERR20: (SP) ,a#STMP2 REPORT RO AFFECTED 
neoree (SP)+, (SP)+ 


BR PERR2 
012737 015432 001236 PERR21: #P2 ,aASTMP2 
PERR22: 
001240 RO, a#$TMP3 
015577 001242 aPbATION241, , OAS TMPS 


1$: 
PDONE 


$ DATA FAILURE. 
015432 001236 MO #P2 ,aASTMP2 

016040 001240 APDATIO,@#$TMP3 

016050 001242 MOV SPOATON BOS THPS 





6 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 30A(1052) 11=JUN-79 11: tg aCe 75 
CJKDCA.P11 08-JUN-79 08:40 T22 FSRC MODE 6 TEST SEQ 0075 


015772 000432 PDONE 


015774 : zFSRC FAILURE TO 
012737 015432 001236 #P2 ,aASTMP2 sMODE 0 
000627 MP5 
000326 
000320 001246 18 


PPAT10: . 
PPAT11: 
PPAT12: 
PPAT13: 


PDATIO: .WORD 


PDATI3: 


PDATOO: 

PDATO1: 

000000 PDATU2: 

016056 PDATC3: 


016060 PDONE : 
016060 104413 to INITIALIZE THE FPS AND STACK; AND 


SEE If THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH 3 alae (HAS 
: THE USER TYPED CONTROL G?) 


FRR KKK KIRKE EKER EEK EKER EEE EERE EEEREKEEEEERKEE KEK 


:STEST 23 FSRC MODE 7 TEST 


:* THIS IS A TEST OF FSRC MODE 7, INDEX 
;* DEFERRED MODE. 


SI KKK KEKE KKK KEKE EERE KKKKKKKKK KKK 


** 
016062 000004 18123: SCOPE 


016064 Q1: 
016064 170011 SETD 


016066 012700 016520 MOV #OPAT 10 RO 

016072 172410 LDD (RO) ,ACO ZLOAD A DEFAULT 
:PATTERN INTO ACO 

016074 012737 016226 000004 MOV HQERRO, a#ERRVECT ual x aide th THE (BUT FSRC) 
[ODD ADR TRAP COULD 


016102 012700 016267 MOV #QPAT20~241,RO 


016106 172470 000241 Q2: LDD @241(RO) ,ACO 
016110 





6 
CJKDCA=A_ KEF11-A FP DIAG PART 1 MACY11 30A(1052) as ag 11: ne + pAGE 76 
CJKDCA.P11 08-JUN-79 08:40 T23 FSRC MODE 7 TEST SEQ 0076 


012701 016540 Q4: MOV aoe cet R1 
174011 ACO, ( GET THE DATA 


012703 000004 #4 ,R3 
016540 #QDATOO,R4 
016550 #QDATIO,R5 
:  bietoney CHECK THE DATA 


Q 
R3,05 
016267 + a atl ae :CHECK RO. 


QERR21 
016560 : @4QD0NE 


016540 : #QDATOO,81 
000004 #4 ,R3 
177777 2 + ened sWAS IT FSRC MODE 0? 


R3,07 
QERR2 


016530 Q8: #QPAT20,R1 
016540 #QDATOO,R2 
000004 


#4 RS 
Q9: } dal ome zWAS IT FSRC 6 


OR DATA FAILURE 


Q10: 
016224 


; TRAP TO HERE ON AN ODD ADR FAILURE 


016226 021627 015434 QERRO: (SP) ,AP3 
016232 000137 062566 JMP @4CPSPUR 


022700 016267 QERR11: MQPAT20-241,RO ;WAS IT FSRC 

001004 QERR12 sMODE 1? 

012737 000321 001246 #321, aA#STMP6 

000434 BR QERR17 

022700 016277 QERR12: #QPAT20-241+10,R0 WAS IT FSRC 
001004 QERR13 sMODE 2? 

012737 000322 001246 #322, aASTMP6 

000425 BR QERR 

022700 016271 QERR13: #QPAT20-241+2,R0 zWAS IT FSRC 
001004 sMODE 3? 

IE Le od 000323 001246 ore, aS TMP6 

022700 016257 QERR14: coo 10, RO zWAS IT FSRC 
00 QERR15 4 


1004 : 
012737 000324 001246 azeee a4$ TMP 
016324 000407 BR R17 


016326 022700 016265 QERR15: #QPAT20-241-2,R0 WAS IT FSRC 
016332 001401 QERR16 sMODE 5 


Voavenewrvoos 
SUWUONOULWN-—O 





M 6 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 30A(1052) 11=JUN-79 11:50 PAGE 77 
CJKDCA.P11 08-JUN-79 08:40 T23 FSRC MODE 7 TEST 


000416 QERR20 
012737 001246 QERR16: MOV #325 , AASTMPE 
012737 0006 001244 QERR17: #627 ,@ASTMPS REPORT FSRC FAILURE 
000327 601250 #327 ,AASTMP7 
(SP) ,@#STMP2 
(SP)+, (SP)+ 
016366 104001 1$: 1 
016370 BR QDONE 
016372 011637 001236 QERR20: (SP) ,@ASTMP2 REPORT RO AFFECTED. 
022626 (SP)+,(SP)+ 


000403 QERR2 
012737 016106 001236 QERR21: #02 ,aA#STMP2 


QERR22: 
001240 RO, a#$TMP3 
616267 001242 ganar ee-ae1 -@ASTMPS 


QDONE 


012737 000320 001246 3 #320, a4STMP6 WENT TO FSRC 
000403 BR QERR4 3MODE 
012737 000326 001246 : #326, GASTMP6 fait - FSRC 


012737 0006 001244 : #627 ,AASTMPS 
001250 #327 ,AASTMP7 
001236 


one SSIS 
QDONE 
012737 DATA FAILURE 


6106 #02 ,a#STMP2 
012737 001240 #QDATIO,a#$TMP3 
weer 6540 MOV  tataiemeguateiatali 


016516 000420 
016520 177777 


177777 QPAT13: 
016550 QPAT20: 


052525 


000000 

000000 

000000 : 
016546 000000 QDATO3: 


016550 073567 QDATIO: .WORD 073567 
016552 052525 QDATI1: . 052525 
016554 031463 QDATI2: . 031463 
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CJKDCA=A_KEF11-A FP 4 oy PART 1 MACY11 30A(1052) 11=JUN-79 11:50 PACE 78 
CJKDCA.P11 08-JUN-79 08:40 T23 FSRC MODE 7 TEST SEQ 0078 


yt ti 016556 010421 QDATI3: .WORD 010421 


016560 QDONE : 
016560 104413 RSE TUP rh “THE Us THE FPS AND STACK; AND 


E THE SOFTWARE 
3 VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?) 


FREAK EEEEREKEKEKEEEKKEKEEEREEEEREKKEEEEKKEEEEKRERERKKEK 


:#TEST 24 (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


:* LOAD INSTRUCTION FLOWS. 
;* EACH OF THE ¢ deme: 


+NUM 
-NUM 


-0 
IS_ LOADED TWICE, ONCE WITH AC>0 THEN 
WITH AC=0. AFTER EACH LOAD THE FPS IS 
CHECK TO INSURE THAT CONTROL WAS PASSED 
THROUGH WITH THE FORKS PROPERLY. 


SERRE KEKKKEKEKEEEKEEKEKEEKREEKKREREKERRKEREEKKKKKKEEK 


$124: 
017662 @4UF LAG 
017612 ane SET UP ACAO DATA. 


000004 M4, 
177777 : #~1,(RO)+ 
077103 R1,U0 


012737 0000 #033 ,Q4UTMP1 
012737 3 #023, Q#UTMP2 
012737 MUERRO,@4FPVECT ;IN CASE (BUT FIUV FAILS) 


SET UP THE LOOP ON ERROR ADDRESS. 


M+ +e eee eH He 


mgt eo Se Be Be Be Be Be Be Be Be Be Se 


016562 
0165 


~ 


#200,R0 
RO 


017612 MOV ‘hon eb ;LOAD ACO 
017664 017670 MOV @AUTMP1 , @AUROM1 
000001 017672 #001, a#UROM2 

012737 000254 017674 #254 , @AUROMS 


012700 017622 MOV #UPAT10,RO ;LOAD 0 INTO ACO 
172410 : (RO) ,ACO 

016676 010037 001252 RO, a#$TMP10 

016702 012737 016674 001236 #U2 , aASTMP2 


016710 012704 000204 MOV #204 ,R4 SEE IF FPS IS CORRECT 
016714 170205 R5 


016716 020405 R4,R5 
016720 001402 U3 
016722 000137 017366 @4UERR1 
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016726 U3: 


:SET UP THE LOOP ON ERROR ADDRESS. 
000200 MOV -* ateatag 


017612 #UPATOO,RO ZLOAD ACO 
(RO) ,ACO 
@AUTMP2 , AAUROM1 
#003, @#UROM2 
012737 #054, aAUROMS 


012700 017632 #UPAT20,RO :LOAD A POSITIVE NUMBER 

016772 172410 : (RO) ,ACO i 
016774 001252 
017000 016772 
017006 012704 000200 #200,R4 :FPS CORRECT? 
017012 170205 R5 
017014 

017452 


SET UP THE LOOP ON ERROR ADDRESS. 


000200 . 
017612 MOV ; :LOAD ACO 


017670 
017672 
017674 
#UPAT30,RO ;LOAD A NEGATIUE 
NUMBER INTO ALO 
172410 g (RO) ,ACO 


010037 
001236 
FPS CORRECT 


oo 
N 


ead aed eed ad ed ed ad ed ed od od od 
NYSNYYYNYYY 


017452 
SET UP THE LOOP ON ERROR ADDRESS. 


SMNMASM R 


000200 
017612 MOV LOAD ACO 


017670 

017672 

256 017674 
017652 HUPA 1 F :LOAD -0 INTO ACO 


(RO) A 

: ; TRAP FROM HERE IF 

001252 RO, a#$TMP10 
017166 001236 #Ui0,a#$TMP2 =; (BUT _FIUV) FAULS! 

000214 #214.R4 :SEE IF FPS IS CORRECT. 


N 
ce ed ae ed ed ae eed ed ed eed 


SooooooocKeo 
RR WWNhNr 
Ww —d ond ed 
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170205 R5 
020405 MP Sa 
017366 MP @AUERR1 
017662 : @AUFLAG ;SEE IF ALL THE PATTERNS 
U14 HAVE BEEN TEST WITH 
BOTH AC NOT EQUAL TO 0 AND AC=0 


017612 #UPATOO,RO :1F NOT GO BACK AND 
000004 #4 ,R1 ZCHECK THEM WITH AC=0 


177777 + 017662 

000233 017664 ’ 

000223 017666 #223, QHUTMP2 
016630 ne avul 


017272 LPERR SET _UP_THE LOOP ON ERROR ADDRESS. 
3NOw SEE" IF A TRAP _CAN BE FORCED BY SETTING FIUV AND LOADING -0 

017274 017536 000244 ad MUERR3 , @#FPVECT 

017302 004200 


RO SET FD AND FIUV 
017612 MOV :SET UP ACO 
0),A 


017652 sLOAD -0 
(RO) ACO SHOULD TRAP TO 244 


000240 
012737 017322 001236 #U15 ,@ASTMP2 REPORT ERROR. 


DIDN'T TRAP 
104001 : 1 ; (BUT FIUV) FAILED. 
000556 BR UDONE 


DID (BUT FIUV) FAIL? 
021627 017170 (SP) ,4U11 


1$ 
062534 @4FPSPUR 
001236 1$: (SP) ,a4$TMP2 
(SP)+, (SP)+ 
2$: 1 
UDONE 
;COME HERE TO ANALYZE FPS ERRORS 
000004 UERR1: F 
BE UERR20 
000443 001244 UERR10: #443, AASTMPS 
017674 MO @AUROM3 ,R3 
001250 R3, a4$TMP7 
#200,R3 
1$ 
#200,R3 
2$ 
#200,R3 
R3,a4STMP6 
017 R5.a4$TMPS 
017442 01 MO RL. aASTMPG 
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017446 1$: 
000004 UERR2: 


017670 001244 UERR20: 
017672 MO 
1250 


UDONE 


1$: 
2$: MO 
UERR21: ow 

R4,a4STMP4S 
1$: 1 
UDONE 

3 WHEN FIUV SET AND ATTEMPTED TO LOAD-0 
017324 UERR3: CMP a ae 


062534 @4F PSPUR 
1$: ine sete 


RO GET FEC. 
000014 MP #14,R0 ; CORRECT 
UERR4 


BR UDONE 
017322 001236 UERR4: #U15 ,AASTMP2 
000012 001242 MO #12 ,aASTMP4 
001240 RO, a#$TMP3 


S 
2 
m 


017630 
017632 
0176 


ASW NNO 


017646 
017650 
017652 100000 UPAT4O: 


017654 000000 UPAT41: 
017656 000000 UPAT42: 


oS 
S 
So 
oO 


NEG ZERO 


oor- Se eS PS = 2 OD COCOOCO DOOCO 
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0 


017676 


FERRER RRR KEE EEEREEEEEEE EERE RERREEREKEEREEEREKKEER EK 


SRTEST 25 ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 
+ % 
:* THIS IS A TEST OF ADD AND SUB WITH FSRC=AC=0 
ot 
IOI III IIIICIIIOIIIIOII IIIT IOI tnt 
017676 isr25: 
017700 
SET UP THE LOOP ON ERROR ADDRESS. 


000200 
R SET DOUBLE MODE 
020364 MOV pare :LOAD ACO=: 


A 
017730 001236 P SAVE FP INSTRUCTION 
020364 
see" oo ADD ITSELF 
SET DOUBLE MODE 
GET THE RESULT 


020364 


020364 
000004 


#4,R 
aie 21S RESULT CORRFCT 
:NO 


017756 
017760 : 2 
017762 000137 020404 @AWDONE 
017766 0772 : R2,W3 
017770 000204 #204,R5 z1S FPS CORRECT 
017774 | w5 pn 
017776 000204 001242 #204, BASTMP4 : 
0004 001240 5, aS TMP 
020404 
:SET UP THE LOOP ON ERROR ADDRESS. 


000200 
+ R SET DOUBLE MODE 
020364 MOV “eb ;LOAD ACO=0 


020052 001236 





,_F 
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RO :GO TO FLOATING MODE 
020364 MOV #WPATOO RO 
: ACO TEST, INSTRUCTION 


RESET TO DOUBLE MODE 
020364 AWPATOO ,RO 


ACO, (RO) :GET THE RESULT 
020364 7 


000004 #4,R 
(RO) +,(R1)+ WAS THE RESULT 
w10 7NO. REPORT FAILURE. 


000004 ‘ 4, ZWAS FPS CORRECT 
; INCORRECT FPS. 


020114 


020116 000004 001242 #4 ,AASTMPS 
001240 MOV pepe’. 


SET UP THE LOOP ON ERROR ADDRESS. 


000200 
R SET DOUBLE MODE 
020364 MOV ;LOAD ACO=0 


020164 001236 


020364 
pad ACO STE" obs INSTRUCTION 


3 SET DOUBLE MODE 
020364 #WPATOO,RO 
ACO, (RO) GET THE RESULT 
020364 MWPATOO,R1 
000004 #4,R 
9 Ne haa 1S RESULT CORRECT? 
WwW 


:NO. 


0 
020212 
020214 


000204 « ‘31S FPS CORRECT? 
zNO. 


000204 001242 #204 , AASTMPS 
001240 a emttalia 


SET UP THE LOOP ON ERROR ADDRESS. 


000200 
SET DOUBLE MODE 
020364 MOV LOAD ACO=0 


0) ,AC 
020302 001236 tt, aASTMP2 





CJKDCA=A_KEF11=A FP “vy “eel 1 MACY11 ™_ 


CJKDCA.P11 


020272 


020 

020370 
020372 
020374 
020376 
020400 
020402 


020404 
020404 


08-JUN-79 


010537 


104413 


14 
012700 
170100 
012700 
010037 


08:4 


020364 


020364 


020364 
000004 


000004 


000004 
001240 


000200 


021159 
021136 


001242 


. 2 
1i=JUN=79 11:50 PAGE 


ADDF ,ADDD,SUBF AND SUBD 
CLR RO 


LDFPS RO 
V A#WPATOO,RO 
W16:  SUBF — (RO) ,ACO 
STFPS R5 
SETD 
MOV #WPATOO,RO 
STD ACO, (RO) 
MOV AWPATOO,R1 
MOV #4 ,R2 
W17: CMP (RO) +,(R1)+ 
BEQ w20 
1$: ERROR 2 
WDONE 
w20: SOB R2,W17 
CMP #4,R5 
BEQ WDONE 
MOV #4, DASTMPS 
MOV R5 ,aASTMP3 
1$: ERROR 
WDONE 
WPATOO: .WORD 0 
WPATO1: 0 
WPATO2: 0 
WPATO3: 0 
WDAPOO: .WORD 0 
WDATO1: 0 
WDATO2: 0 
WDATO3: 0 
WDONE : 
RSETUP 


84 
WITH FSRC=AC=0 TEST 


ENTER FLOATING MODE. 
Tee ehe INSTRUCTION. 


:G 
RESET. fo DOUBLE MODE 
:GET THE RESULT. 


21S RESULT CORRECT? 
3NO. 


:IS FPS CORRECT? 
zNO 


ee tt te ia THE FPS AND STACK; AND 


VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


CLIK REE RK EEK KEKE KEKE KEE 


S*TEST 26 
* te 


ADDD AND SUB WITH FSRC=0 


:* THIS IS A TEST OF ADD AND SUB WITH FSRC=0. 
** 


FRR KERR EERE KEKE REE ERE EERE 


18126: 


SCOPE 

LPERR 

MOV #200,R0 
LDFPS RO 

MOV #XPATOO,RG 


MOV RO, @AXTMP 


SET UP THE LOOP ON ERROR ADDRESS. 


;SET DOUBLE MODE 
3SET aco TO POSITIVE 
[NUMBER #0 


SEQ 0084 


H 7 
C.JKDCA=A_ KEF11<A FP DIAG PART 1 MACY11 30A(1052) 17=JUN-79 11:50 PAGE 85 
CJKDCA.P11 08-JUN-79 08:40 726 ADDD AND SUB WITH FSRC=0 


172410 L (RO) ,ACO 
020444 001236 4X2, aASTMP2 
027160 MO #XPAT10,RO :FSRC=0 
(RO) ,ACb ‘TEST INSTRUCTION 


021140 #XDATOO,RO :GET RESULT. 
ACO, (RO) 
021150 #XPATOO,R1 
000004 #4,R 
(RO) +, (RI)s :1S RESULT CORRECT? 
x 
XERR1 
R2,X3 
000200 #200,R4 
R45 z1S FPS CORRECT? 
x 
021106 DAXERR2 


:SET UP THE LOOP ON ERROR ADDRESS. 
000200 MOV #200,R0 
RO SET DOUBLE MODE 


621170 MOV #XPAT20,RO SET ACO TO 
021136 0 T NEGATIVE NUMBER 


020550 001236 #X6 


‘ MP 
021160 #XPAT10,RO 7FSRC=0 
MY sa ag TEST INSTRUCi ION 


021140 MOV AXDATOO,RO :GET RESULT 
ACO, (RO) 
021170 #XPAT20,R1 
000004 #4 ,R2 
(RO) +, (R1)+ zIS RESULT CORRECT? 
XERR1 
: R2,X7 
000210 #210,R4 
RG RS z1S FPS CORRECT? 
x 
XERR2 


«SET UP THE LOOP ON ERROR ADDRESS. 
000200 MOV #200,RO0 
RO :SET DOUBLE MODE 


021150 MOV #XPATO0 RO :SET ACO TO NON-ZERO 
021136 POSITIVE NUMBER 


020652 001236 
021160 7FSRC=0 
TEST INSTRUCTION 


021140 MOV #XDATOO,RO GET RESULT 
ACO, (RO) 








CJKDCA=A KEF11-A FP DIAG PART * MACY11 SDA 1052) 
8:40 126 AD 


CJKDCA.P11 08-JUN-79 0 
4631 020666 012701 021150 
4632 000004 
4633 020676 022021 x13: 
001401 


000463 
4636 020704 077204 X14: 
4637 020706 912704 000200 
4638 020405 


4641 Oso 75s X15: 
4643 020722 012700 000200 


4645 020730 012700 021170 
4646 020734 010037 021136 


4648 020742 012737 020754 001236 
4649 020750 012700 021160 
4650 sate 173010 X16: 


020 
4653 020762 012700 021140 
4655 020770 012701 021170 


4656 020774 012702 000004 
4657 021000 02202i X17: 


000422 
4660 021006 077204 X20: 
4661 021010 012704 000210 


664 
4665 021022 000466 X21: 
4667 ;REPORT 


4669 021024 012737 021160 001240 XERRI: 
013737 021136 001242 

4671 021040 012737 021140 901244 
1046 104 
0 


0004 
12737 021160 001240 XERR3: 
4675 021060 013737 021136 001242 


1066 
4677 021074 013737 021136 001246 
4678 021102 104002 1$: 


4681 REPORT 


XERR2: 
7 001240 
7 001242 
1 1$: 


MOV #XPATOO,R1 
MOV #4,R 
cw (RO) +, (R1)+ zIS RESULT CORRECT? 
BR XERR3 
SOB R2,X13 
MOV #200,R4 z1S FPS CORRECT? 
CMP R4,R5 
BEQ x15 
BR KERRG 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
V #200,RO 
LDFPS RO :SET DOUBLE MODE 
MOV #XPAT20,RO :SET ACO=A NEGATIVE 
MOV RO, a#XTMP : NUMBER 
LDD (RO) ,ACO 
MOV #16, GASTMP2 
MOV #XPAT10,RO :F SRC=0 
SUBD (RO) ,ACO *TEST INSTRUCTION. 
STFPS 85 
SETD 
MOV #XDATOO,RO :GET RESULT 
STD ACO, (RO) 
MOV #XPAT20,R1 
MOV #4,R2 
CMP (RO) +, (R1)+ :1S RESULT CORRECT? 
BEQ x20 
BR XERR3 
SOB R2,X17 
MOV #210,R4 z1S FPS CORRECT? 
CMP R4 RS 
BEQ 21 
BR XERR4G 
BR XDONE 
DATA ERRORS 
MOV #XPAT10, a#$TMP3 
MOV @AXTMP, AASTMPS 
MOV #XDATOO, a#STMPS 
ERROR 1 
BR XDUNE 
MOV AXPAT10, a#$TMP3 
MOV @AXTMP, AASTMPS 
MOV #XDATO0, a#STMPS 
MOV @AX TMP, AAS TMPE 
ERROR 2 
XDONE 
FPS ERRORS 
MOV RS, aASTMP3 
MOV RZ. AAS TMPG 
ERROR 1 


I 7 
1i=JUN-79 11:50 PAGE 86 
DD AND SUB WITH FSRC=0 


SEQ 0086 


CJKDCA=A_ KEF11=A FP DIAG PART 1 MACY11 30A(1052) 
79 08:40 126 


CJKDCA.P11 — O8=JUN- 
4687 021120 000427 
4688 021122 
4689 021122 010537 
4690 021126 010437 
4691 021132 104001 
4692 021134 000421 
4693 021136 000000 
46% 021140 000000 
4695 021142 000000 
469% 021144 000000 
4697 021146 000000 
4698 
4699 021150 010421 
4700 021152 021042 
4701 021154 031463 
4702 021156 042104 
4703 
4704 021160 000000 
4705 021162 000000 
4706 021164 000000 
4707 021166 000000 
4708 021170 104210 
4709 021172 114631 
4710 021174 125252 
4711 021176 135673 
4712 
4713 021200 
4714 021200 104413 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
472? 

4728 021202 

4729 021204 005037 
4730 021210 012737 
4731 021216 012737 
4732 021224 012737 
4733 021232 

4734 021232 104414 
4735 021234 012700 
4736 021240 170100 
4737 021242 012700 
4738 021246 172410 
4739 021250 013700 
4740 021254 173010 
4741 021256 170205 
4742 021260 170011 


021534 
021554 
021564 
000210 
000200 
021574 
021536 


021536 
021540 
021542 


XERR4: 


1$: 
XTMP: 


XDATOO: 
XDATO1: 
XDATO2: 
XDATO3: 


XPATOO: 


XPATO3: 
XPAT10: 


XPAT92: 
XPAT23: 


XDONE : 


$7 
1i=JUN=79 11:50 PAGE 87 
ADDD AND SUB WITH FSRC=0 


RSETUP 


XDONE 


RS ,a#STMP3 
R4 ,aASTMP4 


:GO_ INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


DL AREER KERRIER EERE KEKE EERKEREEREEEKEEKEEKEKKEK EK 


i*TEST 27 


-* 


1S127: 


v1: 


Y2: 


SCOPE 


SUBD WITH AC=0 TEST 


** 
:* THIS IS A TEST OF SUBD WITH AC=0. BOTH POSITIVE 
:* AND NEGATIVE FSRC'S ARE TRIED. 


a4YFLAG 
#YPATOO,a#YTMP1 :P 
#YPAT10.a#YIMP2 :N 
#210, a4 TMP3 
:SET UP THE LOOP ON ERROR ADDRESS. 
#200,RO 
:SET DOUBLE MODE 
#YPAT2O,RO “SET ACO=0 
a#YTMP1 RO 
(R0), ACO : TEST INSTRUCTION 


SEEKER EKER EEA EKEKEKKEKKE 


SEQ 0087 


CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 <a 
08-JUN-79 08:40 T27 


CJKDCA.P11 


021532 


021534 
021536 
021540 
021542 
021544 
021546 
021550 


001002 
077203 
000421 


012737 


021544 


000004 
021540 


021542 


021534 


177777 
021564 
021554 
000200 


000004 
021536 
021544 
021254 
0215 

021540 
021254 
021540 


021254 
001240 
021542 


021534 


021542 


001236 
0 

001246 
elses 
001246 


001236 
001242 


YDATOO: 


YDATO1 


YDATO2: 


11=JUN=79 


SUBD WITH AC=0 TEST 


- WORD 


#YDATOO RO 
> at ae 


#4, 

a4YTMP2 ,R1 
(RO)+,(R1)+ 
Y6 


R2,Y3 
@4YTMP3,R5 
Y4 


YERR3 
@4YFLAG 
Y5 


#-1 ,@AYFLAG 
MYPAT10 ,a4YTMP1 
#YPATOO ,a#YTMP2 
aerate 


YDONE 

#4 R2 

#YTMP1 ,RO 
#YDATOO,R1 
(RO)+,(R1)+ 
ERR1 


#Y2 ,AASTMP2 

@4YTMP1 , AASTMPS 
#YPAT20 ,@ASTMPS 
#YDATOO ,a@#$TMPS 
@4YTMP2 , AASTMPE 


1 
YDONE 


#Y2 ,QASTMP2 

@4YTMP1 , @ASTMPS 
#YPAT20 ,@ASTMPS 
#YDATOO ,@A$TMPS 
@4YTMP2 , aASTMP6 


2 
YDONE 
#Y2 ,QASTMP2 


R5,a#$STMP3 
a4 YTMP3 ,a#STMP4 


K 7 
11:50 PAGE 88 


GET RESULT 


:CHECK RESULT. 


zFPS CORRECT? 


FINISHED TEST? 


:DID XOR OF SIGN BIT 
zFAIL? 


:DATA FAILURE 


:XOR OF SIGN BIT 
:FAILEC 


FPS WRONG. 
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CJKDCA.P11 
021552 
021554 


021572 
021574 
021576 
021600 
021602 


021604 
021604 


021706 
021712 


08-JUN- 
000000 
063146 
052525 
042104 
167356 
163146 
052525 
042104 
167356 


000000 
000000 
000000 


005067 
012737 
012737 


000224 
022056 
000200 


000200 
022076 
022042 


022046 


000004 
022042 


022044 


022042 
022044 


SUBD WITH AC=0 TEST 
YDATO3: 0 


YPATOO: 063146 
YPATO1: 
YPATO2: 
YPATOS3: 


YPAT10: 


YPAT13: 
YPAT20: 


YPAT33: 


YDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
; PRESSED 
E SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
JDO A ISOS IIIS IIIT II IOI IIIT TOOT I fete 


:*TEST 30 ADDD WITH AC=0 TEST 


:@ 
:@ THIS IS A TEST OF ADDD WITH AC=0. BOTH 
:* POSITIVE AND NEGATIVE FSRC'S ARE TRIED. 


oO 
FERRER RRR REE REE EKER KEKE EERE KE KKEKEREREKKKKKEK 


T5130: 
ZFLAG 
#ZPATOO,a4ZTMP1 ;P 
#200 ,a4ZTMP2 


SET UP THE LOOP ON ERROR ADDRESS. 
#200,R0 
RO 2SET DOUBLE MODE 
#ZPAT20,RO SET ACO=0 
(RO) ,ACO 


a47TMP1 RO 
RO) ACO :TEST INSTRUCTION 


#ZDATOO,RO GET RESULT 
a50, tne 


a#ZTMP1,R1 :RESULT CORRECT? 
(RO)+, (RI)+ 


Z 

ZERR1 

R2,73 

gers zFPS CORRECT? 


SEQ 0089 
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021714 0004 BR ZERR2 
022040 : pee sFINISHED TEST? 


177777 #-1 ,@AZFLAG 
022066 mIPATIO, az 
000210 02 a ha MP2 


DONE 


021652 #22 ,QASTMP2 

022042 @A4ZTMP 1 , AAS TMPS 
022076 AZPAT20 ,aASTMPS 
022046 A#ZDATOO ,@#STMPS 
022042 001246 | net omnacees: 


1$: 
ZDONE 
012737 021652 001236 ; #72, a4STMP2 


010537 001240 R5 ,a@4#$STMP3 
HE 022044 001242 @4ZTMP2 ,AASTMPS 


DATA FAILURE 


NN 
i] 
z 


000000 
000000 


000000 : 
022054 000000 ZDATOS: 
022056 eg a ZPATOO: 
022060 21 2 
146314 : 
156735 ZPATO3: 


156735 ZPAT10: 


oooo COO 


31463 
10421 


022074 146314 2PAT13: 


022076 000000 ZPAT20: 
022100 000000 : 
022102 000000 : 
022104 000000 ZPAT23: 


022106 ZDONE : 

022106 :GO re THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


ooo°o —— --§ OO 
oF F 


DL REE REE EERE REE RE EKEREEREEREEREREKEEEEREREKEKKKE 
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GE 91 
CJKDCA.P11 08=JUN-79 08:40 131 ADDF AND ADDD WITH E(AC)=E(FSRC) TEST AND (BUT FT) TEST SEQ 0091 

gt :*TEST 31 ADDF AND ADDD WITH E(AC)=E(FSRC) TEST AND (BUT FT) TEST 
4913 i* THIS IS A TEST OF THE ADD INSTRUCTION WITH THE 
4914 :* OPERANDS HAVING EQUAL EXPONENTS. 
4919 ;* THE ROUND/TRUNK FLOWS IS ALSO TESTED. 
4917 s  sbddddbbebacsebbbhabddbbidddnbhsdadedsebbsdeheesedeebnecnnadeed 
4918 022110 000004 S131: SCOPE 
4919 022112 
4920 022112 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4921 022114 012700 003240 MOV #3240,R0 
4922 022120 170100 LDFPS RO zSET FIU FIV FD AND FT 
4923 022122 012737 022472 000244 MOV HAAERRO,@#FPVECT ;IN CASE THE OVER/UNDER 
4924 022130 012700 023050 MOV #AAPATO.RO FLOWS IN TRAP WILL 
4926 022134 172410 LDD (RO) ,ACO :SET UP ACO 
4927 022136 012737 022150 001236 MOV WAA2 QS TMP2 * OPERAND 
4928 022144 012700 023060 MOV #AAPAT1 ,RO 
4929 022150 172010 AA2:  ADDD (RO). ACO :TEST INSTRUCTION 
4930 sSHOULD TRUNCATE 
4931 022152 012700 023040 AA3: = MOV #AADATO,RO 
4932 022156 174010 STD ACO, (ROS :GET THE RESULT 
4933 022160 012701 023070 MOV HAAPAT2,R1 
4934 022164 012702 000004 MOV #4,R 
4935 022170 022021 AAG: CMP (RO)+, (R1)+ CORRECT? 
4936 022172 001414 BEQ AA7 
4937 022174 012700 023100 MOV #AAPAT3,RO :DID (BUT FT) FAIL 
4938 022200 012701 023040 MOV HAADATO.R1 
4939 022204 012702 000004 MOV #4 ,R2 
4940 022210 022021 AAS: CMP (RO)+,(R1)+ 
4941 022212 001401 BEQ AA6 
4942 022214 000561 BR AAERR1 ;DATA ERROR 
4943 022216 077204 AA6: — SOB R2,AA5 
4944 022220 000137 022614 JMP @AAAERR2 ; (BUT FT) ERROR 
4945 022224 077217 AA7: —- SOB R2,AAG 
4947 “ iNOW TEST DOUBLE FLOATING ROUND MODE. 
pes ‘ A 1 SHOULD BE ADDED TO THE LSB ON ROUNG MODE. 
4950 022226 AA10: 
4951 022226 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4952 022230 012700 003200 MOV #3200,R0 [SET FD FIV FIV . FT=0 
4953 022234 170100 LDFPS RO 
4954 022236 012700 023050 MOV HAAPATO,RO 
4955 022242 172410 LDD (RO) ACO :SET UP ACO OPERAND 
4956 022244 012737 022256 001236 MOV #AA11, aASTMP2 
4957 022252 012700 023060 MOV #AAPAT1,RO 
4958 022256 172010 AA11: ADDD  (RO),ACO :TEST INSTRUCTION 
4959 ‘SHOULD ROUND 
4960 022260 012700 023040 AA12: MOV #AADATO,RO 
4961 022264 174010 STD ACO, (ROS :GET THE RESULT 
4962 022266 012701 023100 MOV HAAPAT3,R1 
4963 022272 012702 000004 MOV #4 ,R2 

022276 022021 AA13: CMP (RO) +, (R1)+ CORRECT? 
4965 022 001425 BEQ AA 
4966 022302 012700 023070 MOV #AAPAT2,RO :DID (BUT FT) FAIL? 
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012701 023040 #AADATO,R1 
000004 #4,R 
(RO) +, (R1)+ 
AAI7 


023110 MAAPATS ,RO 7 WAS THE FLOATING 
023040 ya T SED 


#4,R 
AAIS: (RO) +, (R1)¢ 


AA ROUND 
AAERR3_ = FLOWS? 


AA16: R2,AA15 DATA ERROR 
BR raat ; CONSTANT ERROR 


Re, 
AAERRS_ ; (BUT FT) ERROR 
R2,AA13 


AA17: 

000560 
022354 AA20: 
sNOW TEST ADDF WITH FT=0, ROUND MODE 


022356 AA21: 
7SET UP Ws} LOOP ON ees: ADDRESS. 
003200 MOV lett FIv=1, FIV=1, FT=0 


023050 MOV HAAPATO RO LOAD ACO OPERAND 


(RO) ,ACO 
ENTER FLOATING MODE 
022410 001236 MO MAAZ2 , AASTMP2 
023120 HAAPATS ,RO 
022410 : (RO) ,ACO TEST INSTRUCTION 
SHOULD ROUND 
022412 


022412 RESET TO DOUBLE 
022414 023040 #AADATO .RO [GET THE RESULT 
023130 : CORRECT? 
000002 #2,R 
(RO) +, (R1)+ 
AA27 
023070 HAAPAT2,RO :WAS THE DOUBLE 
023040 HAADATO.R1 CONSTANT USED INSTEAD 
000002 #2,R2 ‘OF THE FLOATING 
AA25: (RO) +, (R1) :CONSTANT IN THE 
AA ROUND FLOWS? 
AAERR6 :DATA ERROR 
AA26: R2,AA 
AAERR7? ;CONSTANT ERROR 
AA27: R2,AA24 
023140 @4AADONE 
:COME HERE IF A TRAP OCCURS TO 244. 
001236 AAERRO: MOV MP2,RO :SEE IF THE TRAP WAS 
TST onOhe sAT A TEST INSTRUCTION 
CMP RO, (SP) 


BEQ 1$ 
062534 10$: JMP a4F PSPUR 
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022510 1$: 
0 RO ;GET FEC 
000010 MP RO,410 
s OVERFLOW 


000012 RO,412 
sha ; UNDERF LOW 


001236 : (SP) ,a#$TMP2 REPORT OVERFLOW ERROR 
pil cater 


023140 : MP @AAADONE 
001236 : (SP) ,a#$TMP2 REPORT UNDERFLOW 
(SP) +, (SP)+ ERROR 
25$ 
:ADDD RESULT nang oe 
AAERR1: MOV 


AAER10: 


023070 001246 


HAADATO, aA4STMPS 
1$: 2 


AADONE 
MAAPAT2 ,@ASTMP6 ; (BUT FT) FAILED. 
HAAPATO , a#STMPS 
MAAPAT1 got 
001244 ites ; aS TMP 


BR AADON 

001246 : PAAPATS -@4$TMP6 ;DATA ERROR. 
BR AAER10 

sid 246 2 BAD CONSTANT 


— ;@ASTMPS 


AADONE 
MAAPAT3 ,Q@ASTMP6 ; (BUT FT) FAILED. 
MHAAPATO ,@ASTMPS 

001240 HAAPAT 1 , QASTMPS 

001244 MOV pape cabetet 


BR AADONE 
023120 001240 3 HAAPATS ,AASTMP3 ;FD=0 AND 
023050 001242 MHAAPATO ,Q#STMP4 ;DATA ERROR 
023040 001244 MHAADATO,@4$STMPS 
023130 001246 MOV een. -@4$TMP6 


BR AADONE 
023120 001240 : H#AAPATS, pot ba CONSTANT ERROR 


023130 001246 MOV #AAPAT ,a#STMPG 
; AADONE 
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AADATO: 
AAPATO: 


AAPAT1: 


DOQNoooy_oooe 
Oo 


AAPAT2: 


Oo 
oO 


AAPATS: 


S 
So 


AAPAT4: 


AAPATS: 


AAPAT6: 


OOH fOO-NO- Of HOO LOCOCO f = 


AADONE : 
023140 360 wa ee ie THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
; THE DESIRE 10 CHANGE THE SOF TWARE 
‘VIRTUAL CONSOLE SWITCH +} altel (HAS 
; THE USER TYPED CONTROL G?) 


ZOIDS IIIS IOI III IOI IOI TTI TTI 


:ETEST 32 ADDF AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST 


ieTHIS IS_ATEST OF THE ADDD AND ADDF 
:*INSTRUCTIONS AND THE ALIGN AC ALGORITHM 

:*FLOWS. THE CONSTANT (25 FOR FLOATING, 57 FOR 
;*DOUBLE) USED IS CHECKED. SIMPLE 

2*AND WORST CASE ALIGNMENT SITUATIONS ARE 
;*TRIED. NOTE ECAC) IS LESS THEN E(FSRC) 


pSUGETERESESOREESE RS SETST ROTI PET STE SS YO T ETRE EET EOL TOOT ET 27 PCLT 


023142 000004 18132: SCOPE 
EXPONENT DIFFERENCE=57=71 (OCT) FD=1 
023144 CC1: 


104414 LPERR SET UP THE LOOP ” ERROR ADDRESS. 
012704 003200 MOV #3200,R4 SET FIV,FIV, AND FD 
170104 LDFPS R4 

023154 012737 023174 001236 MOV ACC2,aASTMP2 


9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 


04 
05 
06 
07 
08 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
29 
30 
31 
32 
33 
34 
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CJKDCA.P11 08=JUN- 
5135 
136 
5137 


5138 
5139 


PAA AAA AAA AAA AA ATA 
SSEGRARAVLSISVRARATHASSELF 


MUMIA 
NOUSWIN—O 


023162 
0231 


023410 
023410 
023412 


024576 
024616 


024566 
024616 
000004 
024566 
024576 
000004 
CC4: 
024164 
024222 


CCS: 
CC6: 


024130 


003200 


023316 001236 
024576 


024606 
024566 
024666 
000004 
024566 
024606 
000004 
024260 
024276 


024130 


LPERR 
023440 091236 MOV 


E 
eet bo 11:50 PAGE 95 


F AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST 


#CCPO,RO 
0 


#CCDATO,RO 
ACO, (RO) 
#CCP2,R1 
#4,R2 
(RO)+,(R1)+ 


C 
ACCDATO,RO 
#CCPO,R1 


#4 ,R2 
(RO) +,(R1)+ 
c5 


JMP a4C CERO :BAD 
—_— DIFFERENCE=56=70 (OCT) FD=1 


a R4 


acc8 ays TMP2 
#CCPO,R 


A#CCDATO,RO 
ACO, (RO) 
#CCP7,R1 

#4 ,R2 
(RO)+,(R1)+ 
CC12 
A#CCDATO,RO 
ACCP1,R1 


a R2 
(RO) +, (R1)+ 
¢C11 


aC CERO 
ONENT ’DIFFERENCES 25=31 (OCT) PDS 20 


#CC14,a4STMP2 


;SET ACO OPERAND 
;ACO 


: TEST INSTRUCTION 
:GET FPS 

:GET THE RESULT 
21S IT CORRECT 


:DID A BAD 
CONSTANT (NOT 57) 


GET GENERATED 
ZFOR THE ALIGNMENT 


; FLOWS? 
DATA ERROR.D 


BAD CONSTANT .D 
zFPS CORRECT? 


FPS. 


;SET UP THE LOOP ON ERROR ADDRESS. 
SET FIV,FIV, AND FD 


;SET ACO OPERAND 


;F SRC 
sTEST > aaa 
7GET THE RESULT 


:1S IT CORRECT 


:DID A BAD 


CONSTANT (NOT 57) 
[GET GENERATED 
a By ALIGNMENT 


DATA ERROR.D 


;BAD CONSTANT .D 
sFPS CORRECT? 


PS. 


SET UP THE LOOP ON ERROR ADDRESS. 
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5191 12700 024576 #CCPO-RO ;SET UP ACO OPERAND. 
003000 MOV #3000, RG zSET FIV,FIV. CLEAR FD. 


024656 MOV WCCPS, RO 7FSRC 
(RO) ACO TEST INSTRUCTION 


sREENTER DOUBLE MOVE 
024566 MOV ALO ROS 2RO :GET THE RESULT 


024656 ACCP6,R1 z1S THE RESULT CORRECT? 

000002 #2,R2 ; 
(RO) +, (R1)* 

024566 ACCDATO,RO zWAS A BAD CONSTANT 


024626 ACCP3,Ri ‘USED (NOT 25) IN 
000002 #2,R2 STHE ALIGN FLOWS? 
(C16: (RO)+, (R1)+ 


024334 ieee DATA ERROR F 
024370 hed. aC CERG ;BAD CONSTANT F 


PASAT 
eS SB 
BRLEARAST 


024146 


JMP R90 
— DIFFERENCES Bee 30 (ocT)’ PD tt 


;SET UP THE LOOP ON ERROR ADDRESS. 
023564 001236 MOV #CC20,a4$TMP2 
024626 acch3 RO SET UP ACO OPERAND. 
003000 MOV #5000, R4 SET FIV,FIV. CLEAR FD. 


024646 MOV PCCPS,RO zFSRC 
: oe ee TEST INSTRUCTION 


:REENTER DOUBLE MOVE 
024566 MOV #CCDATO RO :GET THE RESULT 
024676 #CCP10,R1 z1S THE RESLT CORRECT? 
000002 #2,R2 
(RO)+, (R1)+ 
C24 
024566 #CCDATO,RO :WAS A BAD CONSTANT 
024646 ACCP5,RI ‘USED (NOT 25) IN 
000002 #2,R2 :THE ALIGN FLOWS? 
: (RO)+, (R1)+ 
(C23 
024424 QACCER7 :DATA ERROR F 


3 R2,CC22 
024442 @4CCER8 ;BAD CONSTANT F 
: R2,(C21 


CC25 
000137 024146 aA4CCERIO ;BAD FPS, 
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;EXPONENT DIFFERENCE=1 FD=1 
CC25: 


HE LOOP Wr ERROR ADDRESS. 
003200 MOV #3200,R4 FIV, AND FD 


RG 
023710 001236 MOV #CC26, aASTMP2 
024576 #CCPO.RO ZSET ACO OPERAND 
(RO) ,ACO 
024626 ACCP3,RO FSRC 
: RO) ACO ZTEST INSTRUCTION 


024566 MO RC CDATO.RO ;GET THE RESULT 
ACO, (RO) 
024706 #CCP11,R1 :1S IT CORRECT 
000004 #4 ,R2 
(RO)+,(R1)+ 


024566 ACCDATO,RO :DID A BAD 
#CCP3,R1 ;CONSTANT (NOT 57) 
#4 Re GET GENERATED 

CC28: 3 ees FOR [- ALIGNMENT 


cc ZFL 
024476 ;DATA ERROR.D 
CC29: 
024514 ;BAD CONSTANT.D 
CC30: 
sFPS CORRECT? 


024130 


JMP a4CCERO BAD FPS. 
oF toma DIFFERENCE=100=144 (OCT) FD=1 
;SET UP THE LOOP "t. ERROR ADDRESS. 
003200 MOV + acne 7SET FIV,FIV, AND F 


024032 001236 MO A#CC32,aASTMP2 
024576 #CCPO,RO :SET ACO OPERAND 


024636 ;FSRC 
i TEST let 


R5 SGET FP 
024566 MOV ACCDATO,RO GET THe RESULT 
ACO, (ROD 
024636 #CCP4,RI1 zI1S I1 CORRECT 
000004 #4 R2 
(RO) +, (R1)+ 
C036 
024566 #CCDATO,RO :DID A BAD 
024636 ACCP4 RI *CONSTANT (NOT 57) 
000004 #4.R2 :GET GENERATED 
(RO)+, (R1)+ 2 OR THE ALIGNMENT 
024532 ‘DATA ERROR. D 
024550 :BAD CONSTANT.D 


024114 0 : R4-RS :FPS CORRECT? 
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5303 024116 001402 BEQ (C37 
$304 024120 000137 024130 JMP @4CCERO :BAD FPS. 

5305 024124 000137 024726 (C37:  JMP aC CDONE 

$306 024130 010437 001242 CCERO: MOV R4, DASTMPS :FPS ERROR D 

5307 024134 010537 001240 MOV RS, aASTMP3 

5308 024140 104002 1$: ERROR 2 
5309 024142 000137 024726 JMP @4CCDONE 
$310 024146 010637 001242 CCER9O: MOV R4, AASTMPS :FPS ERROR F 

5311 024152 010537 001240 MOV RS. a#STMP3 

$312 024156 104002 1$: ERROR 2 
5313 024160 137 024726 JMP aC CDONE 
5314 024164 012737 024616 001240 CCER1: MOV #CCP2,a4$TMP3  :DATA ERROR D 
5315 024172 012737 024616 001246 MOV ACCP2. aASTMPS 

5316 024200 012737 024576 001242 CCERSO: MOV #CCPO, AAS TMPS 

5317 024206 012737 024566 001244 MOV #CCDATO, a#$TMPS 
5318 024214 104002 1$: ERROR 2 
5319 024216 000137 024726 JMP @4CCDONE 
5320 024222 012737 024616 001240 CCER2: MOV ACCP2,a4$TMP3 = CONSTANT BAD D(B) 
5321 024230 012737 024616 00124 MOV ACCP2, aASTMP6 

5322 024236 012737 024576 001242 CCER22: MOV ACCPO. aASTMP4 

3 024244 012737 024566 001244 MOV ACCDATO, a#STMPS 

5324 024252 104002 1$: ERROR 2 
5325 024254 000137 024726 JMP @4CCDONE 
5326 024260 012737 024606 001240 CCER3: MOV ACCP1, a4S$TMP3 

5327 024266 012737 024666 001246 MOV #CCP7. aASTMPS 

5328 024274 000741 BR CCERSO 

5329 024276 012737 024606 001240 CCER4: MOV ACCP1,a4$TMP3 =: CONSTANT BAD D(G) 
5330 024304 012737 024666 001246 MOV #CCP7. aASTMPS 

5331 024312 012737 024576 001242 CCER44: MOV ACCPO, aASTMPS 

5332 024320 012737 024566 001244 MOV ACCDATO, a#STMPS 

5333 024326 104002 1$: ERROR 2 

5334 024330 000137 024726 JMP @4CCDONE 

5335 024334 012737 024656 001240 CCERS: MOV A#CCP6,a4$TMP3 DATA ERROR F 

5336 024342 012737 024656 001246 MOV #CCP6. aASTMPS 

5337 024350 012737 024576 001242 CCERSS: MOV #CCPO. a#STMPS 

5338 024356 012737 024566 001244 MOV #CCDATO, aASTMPS 

5339 024364 104002 1$: ERROR 2 

5340 024366 000557 BR CCD 

5341 024370 012737 024656 001240 CCER6: MOV Patel @4STMP3 CONSTANT BAD F (B) 
53%42 024376 012737 024656 001246 MOV #CCP6. aASTMPS 

5343 024404 012737 024576 001242 MOV ACCPO. aASTMPS 

5344 024412 012737 024566 001244 MOV ACCDATO, a#STMPS 

5345 024420 104002 1$: ERROR 2 

5346 024422 000541 BR CCDON 

5347 024424 012737 024646 001240 CCER7: MOV Patt @4STMP3 DATA ERROR F 

5348 024432 012737 024676 001246 MOV #ccpid, ar$IMP6 

349 024440 000743 BR CCERS 

5350 024442 012737 024646 001240 CCER8: MOV ACCP5 > arsTP3 = CONSTANT BAD F (G) 
5351 024450 012737 024676 001246 MOV ACCP10, AAS TMP 

5352 024456 012737 024566 001244 MOV #CCDATO, a#STMPS 

5353 024464 012737 024576 001242 MOV ACCPO, AAS TMP 

5354 024472 104002 1$: ERROR 2 

5355 024474 000514 BR CCDON 

5356 024476 012737 024626 001240 CCER10: MOV aCe. a#STMP3 DATA ERROR D 
5357 024504 012737 024706 001246 MOV accel. aa$TMP6 


5 
5358 024512 000632 BR CCERS 
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024514 012737 024626 001240 CCER11: MOV #CCP3, eee CONSTANT BAD D(G) 
AEA 14 024706 001246 MO accell, ,@4$ TMP 


0006 BR C 
012737 0924636 001240 CCERI2: ACCP4,@ASTMP3 =; DATA _ERROR D 
ATS of 024636 001246 MOV ie @4STMP6 


000614 BR CCE 

012737 024636 0012460 CCER13: ACCP4,a#S$TMP3 ; CONSTANT BAD D(B) 
012737 024€36 001246 MO #CCP4 AAS TMPS 

000624 eae BR CCER22 


oO 


Ss 


CCPO: ECAC) =1 


CCP1: 


& 
S 


7E (CF SRC) =E (AC) +56=57 
; =71(0CT) 


CCP2: 


on 
> 
So 
So 


7E(FSRC)=E (AC) +57=58 
: =72(O0CT) 


CCP3: 


So 
oS 


7ECFSRC)=E (AC) +1=2 


COCO fLOCOCO-C00 SOO ONOCOO 


CCP4: 7E(FSRC)=E (AC) +100=101=145 (OCT) 


SECRSeeeesy 


WAW 
AVIS 


CCP5: 


o 


7 ECF SRC)=E (AC) +24=25=31(0CT) 


WWW 
RAR 


CCP6: 


ea 
So 


7E (FSRC)=E (AC) +25=26=32(0CT) 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


WW 
SBN 


CCP?: :CCP1 RES 


CCP10: 


es) 
S 
So 


7CCP5 RES 


CCP11: 


So 
So 


CCP3 RES 


CCP12: 


So 
oO 


BAD CONSTANT 
sRES CCP2,CCP4 


COONMNOCOWNO9O "A $900 S$ OCOOAOCOACCOOW 


024722 
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CJKDCA.P11 08=JUN-79 08:40 T32 ADDF AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST SEQ 0100 
5415 024724 000000 0 
5416 
5417 0246726 CCDONE : 
5418 026726 106413 RSE TUP :GO_INITIALIZE THE FPS AND STACK; AND 
5419 ZSEE IF THE USER HAS EXPRESSED 
5420 STHE DESIRE TO CHANGE THE SOF TWARE 
5421 [VIRTUAL CONSOLE SWITCH REGISTER “HAS 
342¢ :THE USER TYPED CONTROL G?) 
5424 LR EERE EERE EERE EERE ERE EEEREERE RE ER 
3425 ;#TEST 33 ADDF AND ADDD WITH E(AC) GREATER THAN E(FSRC) TEST 
5427 tS THIS IS A TEST OF THE ADDD AND ADDF 
5428 ; * INSTRUCT IONS AND THE ALIGN FSRC ALGORITHM 
5429 FLOWS. FIRST THE CONSTANT USED IS CHECKED. 
5430 1 THEN SIMPLE AND WORST CASE ALIGNMENT 
5431 :*SITUATIONS ARE TRIED. NOTE ECAC) 
rag teIS GREATER THAN E(FSRC). 
3* 
5434 fA AREER PASE SRSSSSAASALELASLASLASSLSESES ES ESS SSeS SS 
5435 024730 000004 18133: SCOPE 
5436 sEXPONEN! DIFFERENCE=57=71 (OCT) FD=1 
5437 024732 BB): 
5438 024732 106414 LPERR :SET UP THE LOOP ON. ERROR ADDRESS. 
5439 024734 012704 003200 MOV #3200,R4 :SET FIV FIV, AND F 
5440 024740 170104 LDFPS RG 
5441 024742 012737 025570 000244 MOV #BBERO,a#FPVECT :SET UP FOR ERROR 
5442 024750 012737 024770 001236. MOV #BB2,a4$TMP2 IN CASE THE OVER\ 
5443 ; ;UNDER FLOWS FAIL. 
5444 024756 C12700 026132 MOV #BBPAT2 RO :SET ACO OPERAND. 
5445 024762 172610 LDD (RO) ,ACO 
5446 024764 012700 026122 MOV #BRPAT1,RO FSRC 
5447 024770 172010 BB2: ADDD  (RO),ACO S TEST INSTRUCTION 
5448 024772 170205 STFPS RS 
5449 024774 012700 026102 BB3: MOV #BBDATO,RO :GET THE RESULT 
5450 025000 174010 STD ACO, (RO) 
5451 025002 012701 026132 MOV #BBPAT2,R1 :RESULT CORRECT? 
5452 025006 012702 000004 MOV #4,R 
5453 025012 022021 BB4: CMP (RO)+,(R1)+ 
5454 025014 001402 BEQ BB5 
5455 025016 000137 025630 JMP @ABBER1 :DATA ERROR D 
5456 025022 077205 BBS: SOB R2,BB4 
5457 :WAS FPS CORRECT? 
5458 025024 020405 CMP R4.RS5 
5459 025026 001402 BEG BB6 
5460 025030 000137 025570 AABBERO PS ERROR 
5461 sEXPONENT D DIFFERENCE=56=70 (OCT)’ EDS 1 
5462 025034 BB6: 
5463 025034 104414 LPERR :SET UP THE LOOP oN ERROR ADDRESS. 
025036 012704 003200 MOV #3200,R4 [SET FIV.FIV, AND FD 
5465 025042 170104 LDFPS R& 
5466 025044 012737 025064 001236 MOV #BB7 , aASTMP2 
5467 025052 012700 026152 MOV #BBPAT4 RO :SET ACO OPERAND 
5468 025056 172410 LDD (RO) ,ACO 
5469 025060 012700 026122 MOV #BBPAT1.RO F SRC 
5470 025064 172010 BB7:  ADDD  (RO),ACO STEST INSTRUCTION 


K 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 apt 1052) 11=JUN=79 11:50 PAGE 101 
CJKDCA.P11 08-JUN-79 08:40 133 ADDF AND ADDD WITH ECAC) GREATER THAN E(FSRC) TEST SEQ 0101 


170205 R5 :GET FPS 

0127 026102 MOV ACO (ROS 2RO GET THE RESULT 
026212 #eeh 10.R1 IS IT CORRECT 
000004 


{RODS (RID® 
BB13 


026102 ABBDATO,RO :DID A BAD 

026152 #BBPAT4.R1 SCONSTANT (NOT 57) 
000004 #4 ,R2 :GET GENERATED 
BB11: (RO) +, (R1)+ zFOR Th THE ALIGNMENT 


Lows? 
025666 wee QABBER2 [DATA ERROR.D 
025704 ; @ABBER3 :BAD CONSTANT.D 


BB13: 
3FPS CORRECT? 


BB) 
025152 000137 025570 JMP @4BBERO BAD FPS. 
;EXPONENT DIFFERENCE=25=31 (OCT) FD=0 
025156 BB14: 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
025206 001236 MOV #BB15, a#STMP2 
026112 MOV ABBPATO,RO 7SET UP ACO OPERAND 
(RO) ACO 
003000 #3000,R4 ZSET FIV AND FIV 
LEAR FD 


Rs ; 
026122 MOV ABBPATI.RO  —-: FSRC 
(RO) .ACO STEST INSTRUCTION 


;REENTED DOUBLE MODE. 
026102 MOV #EBDATO RO ‘GET THE RESULT 
026112 #BBPATO,R1 z1S THE RESULT 
000002 : 


#2, ; CORRECT? 
BB16: (RO) +,(R1)+ 
BB17 
025740 @4BBERS ;DATA ERROR F 
BB17: R2,BB16 
aaa 71S FPS CORRECT? 
025250 000137 025610 JMP @4BBER10 ;FPS ERROR. 
;EXPONENT DIFFERENCE=24=30 (OCT) 
025254 BB20: 


:SET UP THE LOOP ON ERROR ADDRESS. 


025304 001236 MOV #BB21, a#STMP2 
026142 WBBPATS RO 7SET UP ACO OPERAND. 
003000 MOV #53000, R4 sSET FIU,FIV. CLEAR FD. 


026122 MOV pa RO ZF SRC 
: {R0), ACO : TEST INSTRUCTION 


sREENTER DOUBLE MODE 
025312 026102 MOV A#BBDATO,RO GET THE RESULT 
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CJKDCA.P11 08-JUN-79 08:40 133 ADDF 


17401C 
0 


025316 
0253. 


0254 
025470 
025474 


025550 


026202 
000002 


026102 
026142 
000002 


025774 
026012 


025610 
025430 
003200 
026162 
026122 
026102 
026222 


000004 


026046 
025570 


025524 
003200 


026172 
026122 


026102 


026172 
000004 


001236 


001236 


102 
AND ADDD WITH ECAC) GREATER THAN E(FSRC) TEST 


ACO, (RO) 
#BBP7 ,R1 


#2,R2 
(RO) +, (R1)+ 
BB25 


#BBDATO,RO 
#BBPAT3 ,R1 


#2,R2 
BB23: MP (RO)+,(R1)+ 
BB24 


BB24: 
BB25: 


JMP @4BBER10 
;EXPONENT DIFFERENCE=1 
BB26: 


#BB27 , aASTMP2 
#3200 ,R4 


4 

#BBPATS ,RO 
(RO) ,ACO 
#BBP, 


AT1,RO 
(RO) ,ACO 
R5 
#BBDATO,RO 
ACO, (RO) 
#BBP 


#4 
BB30: (RO) +, (R1)+ 
BB31 


@4BBER7 
BB31: R2,BB30 


R4-RS5 
BB32 


1S THE RESULT CORRECT? 


WAS A BAD CONSTANT 
USED (NOT 25) IN 
THE ALLIGN FLOWS? 


;DATA ERROR F 

;BAD CONSTANT F 

;BAD FPS. 

;SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP ACO OPERAND 

sFSRC 

ZTEST INSTRUCTION 


GET THE RESULT. 
71S IT CORRECT? 


DATA ERROR D 
IS FPS CORRECT 


JMP @4BBERO 
i" DIFFERENCE=100=144 (OCT) 


#BB33 ,a#STMP2 
ede R4 


#4 
(RO)+, (R1)+ 
BB35 


SET UP THE LOOP ON ERROR ADDRESS. 


sSET FIV,FIV AND FD 
:SET UP ACO OPERAND. 
sFSRC 

;TEST INSTRUCTION 
‘3GET THE RESULT 

31S IT CORRECT 


SEQ 0102 





M 
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CJKDCA.P11 08-JUN-79 
025552 
0. 


026232 
001242 
001240 


026232 
0 

036102 
026232 
026152 
026212 
026152 
0 

026102 
026112 
0 

026102 
026142 
026202 
026142 
026102 


026162 
026122 


001242 


001242 
001246 


001242 


001242 
001246 


F AND ADDD WITH ECAC) 


BB35: 


RS ,a#STMPS 


@4BBDON 

WEBPAT?. @4$STMPS 
#BBPAT 2 , aA STMP6 
ABBPAT1 , A#STMPS 
ATO, a#STMP5 


@4BBDONE 
#BBPATS , @ASTMPS 
10, a4$TMP6 
BBER11 
#BBPATS ,@#STMP4 
#BBP10, 34S TMP6 
#BBPAT1 , a#STMP3 
#BBDATO, a#$TMP5 


BBDONE 
#BBPATO, mere 


#BBDATO. a#$TMP5 


BBDONE 
#BBPAT3 , aA STMP4 
#BBP7 , @ASTMP6 


BBER4 
#BBPAT3 , aS TMP4 
#BBP7 , aASTMP6 

#EBPAT1 , a#STMP3 
— 0. a#$TMP5 


BBDONE 
#BBPATS ,a#$STMP4 
#BBPATIT, a4$TMP6 


GREATER THAN E(FSRC) TEST 


DATA ERROR D 
21S FPS CORRECT 


:FPS ERROR D 


:SEE'IE THE US THE FPS AND STACK; AND 


O CHANGE THE SOFTWARE 
IRTUAL_CONS SOL E SWITCH REGISTER (HAS 
‘THE USER TYPED CONTROL G?). 


:FPS ERROR F 


:GO tein THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
ZVIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


DATA ERROR D 


BAD CONSTANT D 


:DATA ERROR F 


CONSTANT ERROR F 


SEQ 0103 
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012737 026172 001242 BBER8: MOV #BBPAT6, aA STMP4 
012737 026172 001246 MOV #BBPAT6 ,a#$TMP6 
000661 BBER11 


BBDATO: 


°% 


> 
So 
So 


BBPATO: 7F (AC) =E (F SRC) +25=26 


: =32(0CT) 


S 
So 


BBPAT1: 


SOONMCCONOCOCoO 


2ECFSRC)=1 


BBPAT2: 
7E (AC) =E (CF SRC) +57=58 
é =72(0CT) 


2E (AC) =E (F SRC) +24=25 
: =31(0CT) 


BBPAT3: 


BBPAT4: 7 E (AC) =E (F SR6) +56=57 


3 =71(0CT) 


BBPATS: 


So 
So 


ECAC) =E (F SRC) +1=2 


BBPAT6: 2E (AC) =E (F SRC) +100= bed 


: =145(0CT) 


CGOWOSCSC fSOCO—-COOKn0C0OO0O—-o0 


BBP7: 


NM 


;BBPAT3 RES 
BBP 10: ;BBPAT4 RES 


BBP11: 


oS 
So 


;BBPATS RES 


OoOoOuUl-00—-00- ao 


6232 BBDONE : 
026232 ie ee a THE FPS AND STACK; AND 


0 THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


DO RRR RETR RRR EERE ERE RAR RE RRR REE x 


: FEST 34 ADDD WITH NEGATVE OPRANDS TEST 
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CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 30A(1052) 11=JUN-79 11:50 PAGE 
79 08:40 134 ADDD WITH NEGATVE OPRANDS TEST 


:*THIS IS A_TEST OF THE ADDD INSTRUCTION 
;*W1TH NEGATIVE OPERANDS. EVERY COMBINATION OF 


CJKDCA.P11 


08-JUN- 


R 


o--0-00—-0— 
_ 
S323n 
SoSoSNRF 


052704 


003200 


026266 
030116 


030116 


030076 
030216 
000004 


030076 
030146 
000004 


027326 
027364 
000010 


027310 


003200 


026414 
030126 


030116 
030076 
030106 
000004 


027422 
000004 


001236 


001236 


OPERAND SIGNS IS TRIED. 


i* 


105 


FARRAR EREEEEEEEERERERERREREERERREEEREEREREREREEEE EE 


18134: SCOPE 

hb OPERANDS NEGATIVE 
#3200 ,R4 
R4 
#DD2 ,aASTMP2 
#DDP1 ,RO 


R5 
#DDDATO,RO 
ACO, (RO) 
#DDPY,R1 

#4 ,R2 
(RO)+,(R1)+ 


DD 
#DDDATO,RO 
ADDP4 ,R1 


#4 R2 
(RO) +,(R1)+ 
DDS 


JMP @4DDER 
FSRC NEG AC=-F SRC 


#3200,R4 
R4 


#DD8, a#STMP2 
DDP2,RO 


R 
ADDDATO,RO 
i cael 


#4 ,R2 
(RO) +, (R1)+ 
DD11 
BADDER3 
R2,DD10 
4°R4 


;SET UP 
7SET F10, 


sSET UP 


HE LOOP ON ERROR ADDRESS. 
FIV, AND FD 


;SET ACO OPERAND 


ESRC 

crete teen die 
:GET THE RESULT 
IS IT CORRECT 


:DID A ADD-SUB 
sFLOW A FAILURE 


3216,442,500 
DATA ERROR,D 
FLOW FAILURE ,D 


FPS CORRECT? 
;BAD ,FPS 


THE LOOP ON ERROR — 
SET FIO, FIV, AND FD 


:SET ACO OPERAND 


FSPC 

STEST  - aaaac ea aate 
7GET THE RESULT 
71S IT CORRECT 


7FLOW FAILURE 


SEQ 0105 





CJKDCA=A KEF11=A FP DIAG PART 1 MACY11 30A(1052) 
08-JUN-79 08:40 134 


CJKDCA.P11 


026700 
026702 


000137 


027310 
003200 
026514 001236 
030116 
030126 
030076 
030106 
000004 
027460 
000004 
027310 
003200 
026614 001236 
030136 
030166 
030076 
030176 
000004 
030076 
030206 
000004 
027516 


027554 


027310 


DD19: 


DD20: 
DD21: 


JMP 
sAC NEG FSRC 


. 
11=JUN=79 11:50 PAGE 
ADDD WITH NEGATVE OPRANDS TEST 


R4,RS 
pdi2 


-< ara 
#DD13,aA4STMP2 
#DDP1,RO 


R 
#DDDATO,RO 
ACO, (RO) 
#DDPO,R1 
4,R 


#4 R2 
(RO) +, (R1)+ 
DD15 


NEG 


#3200.R4 
#DD17,a4$TMP2 
#DDP3.RO 
(RO) ACO 
P6,R 
(RO) ,ACO 
R5 
#DDDATO,RO 
ACO, (RO) 
#DDP7,R1 
4 
(RO) +, (R1)+ 
DD21 
ADDDATO,RO 
ADDP8 Ri 


g 
(RO) +, (R1)+ 
DD20 


@ADDERO 
POS /FSRC/ > /AC/ 


106 


sFPS CORRECT? 


:BAD FPS 
AC==F SRC 


:SET UP M3 LOOP ON ERROR ADDRESS. 
;SET FIU, FIV, AND FD 
SET ACO OPERAND 


sFSRC 

;TEST INSTRUCTION 
sGET FPS 

;GET THE RESULT 
:IS IT CORRECT 


FLOW FAILURE 216,440,121 


EPS CORRECT? 


;BAD FPS 
/AC/ > /FSRC/ 


7SET UP THE wa ON ERROR oo 
sSET FIV, FIV AND FD 
:SET ACO OPERAND 
Zs ESPC 
3; TEST INSTRUCTION 
:GET FPS 
;GET THE RESULT 
71S IT CORRECT 


7EPS CORRECT? 
;BAD FPS 


SEQ 0106 
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DD22: 
;SET UP TH HE LOOP ON ERROR ADDRESS. 
003200 MOV . aeaeae sSET FIO,FIV, AND FD 


026736 001236 MOV eeeeae @ASTMP2 
030166 MO A#DDP6,RO ;SET ACO OPERAND 


030136 ;F SPC 
TEST daa a 


R5 
030076 MOV A#DDDATO,RO 7GET THE RESULT 
ACO, (RO) 
030176 #DDP7,R1 1S IT CORRECT? 
000004 #4 ,R2 ; 
oe 
030076 ADDDATO,RO :FLO,S FAILURE 
030206 #DDP8,R1 CONSTANT (NOT 57) 
#4 ,R2 3216,042,101 
(RO), (R1) 
DD26 
027612 DATA ERROR. 
027650 
FPS CORRECT? 


027310 


;BAD FPS 
NEG /AC/</FRSRC/ 


SET UP THE LOOP ON ERROR ADDRESS. 
003200 MOV > aaa SET FIO,FIV,AND FD 


027060 001236 MO #DD31, aASTMP2 
030146 DP4;RO SET ACO OPERAND 


030156 
eTeSY INSTRUCTION 


R ‘GET FPS 
030076 MOV ADDDATO,RO ‘GET THE RESULT 

ACO, (RO) 

#DDP8,R1 :1S IT CORRECT 

#4 ,R2 

(RO) +, (R1)+ 

DD35 :ADD-SUB 

#DDDATO,RO :ELOWAS FAILURE 

#DDP7 Ri ON 216 waco NOT 141 

#4 ,R2 GENERA ATED 

(RO) +, (R1)+ sFOR THE ALLIGNMENT 

DD34 ZFL ? 

“DATA ERROR, D 

027744 


0527 000010 
027146 020405 5 zFPS CORRECT? 





= 
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027150 #DD36 
027152 000137 027310 JMP @ADDERO ;BAD FPS 
: FSRC POS /FSRC/</AC/ 


:SET UP THE LOOP ON ERROR ADDRESS. 
003200 MOV #3200,R4 SET FIO, FIV, AND FD 


RG 
027206 001236 MO #0037, a4STMP2 
030156 ADDPS.RO zSET ACO OPERAND 
(RO) ,ACO 
030146 ADDPS ,RO F SPC 
{R0), ACO :TEsT - ANSTRUCTION 
030076 MOV #DDDATO,RO CET THe RESULT 
ACO, (RO) 
030206 #DDP8,R1 :I1S IT CORRECT 
000004 #4 R2 
(RO) +, (R1)+ 
DD41 
030076 ADDDATO,RO :ADD SUB 
030176 #DDP7,RI1 ‘FLOWS FAILURES 
000004 


#4 ,R2 GET 216,042,141 
oan ate :FOR THE ALL IGNMENT 


: FLOWS? 
030002 J ‘DATA ERROR. D 
030040 ; :BAD CONSTANT .D 


000010 
FPS CORRECT? 


DD42 
027310 ;BAD FPS 
DD42: 
DDERO: MO zFPS ERROR 
13 RS, * AAS TMP 


030226 eit MP @#DDDONE 

030116 001240 ; ADDP1, a#$TMP3 
#DDP1, aASTMPS 
#DDDATO, a#STMPS 
ADDP1, aASTMP6 


: 2 
030226 @4DDDONE 


030116 #DDP1 ,@ASTMP3 
030116 A#DDP1 ,@ASTMPS 
030076 ADDDATO, a#$TMPS 
030216 001246 MO - patlepateatte 


030226 y MP @#DDDONE 


030116 001240 ADDP1 , AAS TMP3 
ADDP2 , aASTMP4 
A#DDDATO, a#$TMPS 
027444 030106 001246 A#DDPO, a#$TMP6 
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CJKDCA=A KEF11=A FP DIAG PART 1 MACY11 30A(1052) 17-JUN=79 11:50 PAGE 109 
CJKDCA.P11 08=JUN-79 08:40 134 ADDD WITH NEGATVE OPRANDS TEST SEQ 0109 
5919 027652 104002 1$: 2 
§920 027454 000137 030226 iia JMP @*DDDONE 
030126 001240 d #DDP2, a#STMP3 
030116 #DDP1, aS TMP4 
030076 #DDDATO, a#'$TMPS 
030106 001246 MO #DDPO, a#'$TMP6 


: 2 
030226 SMP @ADDDONE 


001240 ADDP6 , AAS TMP 
ADDP3, @ASTMPS 
A#DDDATO, a#$TMPS 
030176 MOV #DDP7 , aASTMP6 


: 2 
030226 MP @ADDDONE 


030166 ADDP6 , aASTMPS 
030136 ADDP3,a4STMP4 
030076 ADDDATO, a#STMPS 
030176 #DDP7 , AS TMP6 


: 2 
030226 @4DDDONE 


030136 ADDPS ,aASTMP3 
030166 A#DDP6, AA STMPS 
030076 A#DDDATO, a#$TMPS 
030176 #DDP7 ,aA$TMP6 


: 2 
030226 @4DDDONE 


030136 ADDP3 , AASTMP3 
030166 ADDP6, AAS TMP4 
030076 #DDDATO, a#$TMPS 
030176 001246 MOV ADDP7 , AASTMP6 


: 2 
030226 MP @4DDDONE 


030156 001240 ADDPS ,aASTMPS 
ADDP4 ,aASTMPS 
A#DDDATO, a#$TMPS 
ADDP8 , AAS TMPE 


2 
@4DDDONE 


#DDP5 ,aASTMP3 
#DDP4;aASTMPS 
#DDDATO, a#$TMPS 
001246 MOV DDPB. a#STMPG 
030226 JMP-—- @WDDDONE 
DDER11: 
030146 001240 MO #DDP4 , aAASTMP3 
#DDPS , AAS TMPS 
#DDDATO, a#STMPS 
001246 #DDP8, a4$TMP6 


J 
DDER10: 
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1$: 2 
030226 JMP @ADDDONE 
DDER12: 
030146 001240 MO ADDPS , AAS TMPS 
ADDPS ,aASTMPS 
#DDDATO ,a4$STMPS 
001246 13 - peemgnet- 
030226 J @4DDDONE 
DDDATO: 


DDPO: 


DDP1: ;~DDP2 


elolo le lelolelelela) 


DDP2: 


So 
oO 


;~DDP1 


DDP3: sEXP=4 


sFRAC=... 


2 
0 
Q 
0 
1100 
0 
0 
0 
6 


DDP4: ZEXP=3 


SFRAC A ck 


DDPS: 7~DDP3 


DDP6: 2-DDP4 


oo+-OoCo°o-000 


DDP7: 


So 


;DDP3+DDP6 
DDFS: ;DDP5+DDP4 


DDPY: 7DDP1+DDP1 


ooo -O00-]-CcOoO°0 -$oO 


4 
030226 DDDONE : RESET 


Py SRR REE ERE REE EEE ERR REERREEERAEKERKEREER ERE 


T*TEST 35 SUBD TEST 
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CJKDCA.P11 08=JUN-79 08:40 135 SUBD TEST SEQ 0111 


THIS IS A TEST OF THE SUBD INSTRUCTION. 
BOTH A POSITIVE AND A NEGATIVE NUMBER 
IS SUBTRACTED FROM IT SELF 


SKK REKKHERKRRKE A REEREEKRKKEREKERRKEKKEREEKEKEEKEEEKEEEREEEE 


T35: SCOPE 
e1: USE POSITIVE OPERANDS 


+i 
* 
“* 
% 
* 
e 
S 


030230 
030232 é 
;SET UP THE LOOP ON ERROR ADRESS. 


003200 


030262 
030742 


030742 


030720 
030730 
090004 
030720 
030752 
000004 
030530 


030566 
000004 


030512 


003200 


030410 
030762 


030762 


030720 
030730 
000004 


030720 
030772 


001236 


001236 


+ aa R4 
PEER, DASTMP2 
#EEP1 RO 


5 
MEEDATO,RO 
ACO, (RO) 
#EEPO,R1 
#4,R2 
(RO)+,(R1)+ 

E6 


E 
#EEDATO,RO 
MEEP2,R1 


#4 R2 
(RO)+,(R1)+ 
EE5 


JMP @a4EEERO 

USE NEGATIVE OPERANDS 
#3200 ,R4 
R4 


HEES, aASTMP2 
#EEPS RO 


#EEDATO,RO 
ACO, (ROD 
#EEPO,R1 
#4.R2 
(RO)+, (R1)* 


#EEDATO,RO 
MEEP4,R1 


:SET FIU, FIV, AND F 
SET ACO OPERAND 


;F SPC 

:TEST INSTRUCTION 
ZGET FPS 

GET THE RESULT 
71S IT CORRECT? 


:DID A BAD 
CONSTANT (NOT 57) 
7GET GENERATED 

:FOR THE ALL IGNMENT 
FLOWS? 

;DATA ERROR.D 


;BAD CONSTANT .D 


FPS CORRECT? 
BAD FPS 


THE LOOP ON . 


SET FIO, FIV 
:SET ACO OPERAND 


SPC 
ETEST. INSTRUCTION 
GET FPS 
GET THE RESULT 
71S IT CORRECT? 


A BAD 
STANT (NOT 57) 





CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
08-JUN-79 08:40 135 


CJKDCA.P11 


6087 


RAARARAAAAAX 
ee cD ee ce ee eed ed ee eed 
— a ee) oS ee SS 
WONIAWUSWR oO 


4 
030746 


012702 


000004 


030624 
030662 
000004 


030512 
03 
031002 


030730 
031002 
030742 


0 

030730 
031002 
030762 


030730 
031002 
030762 
0 


030730 
031002 


001240 


001246 


001240 


001246 


001240 


001246 


EE10: 


EE11: 
EE12: 


1$: 


EEDATO: 


EEPO: 
00000 


EEP1: 


11=JUN=79 
SUBD TEST 
MOV #4,R2 
CMP (RO) +, (R1)+ 
BEQ EE11 
JMP aFEEER3 
SOB R2,£E10 
MP aMEEERG 
SOB R2,EE9 
BIS 4.R4 
CMP R4_R5 
BEQ E13 
JMP @FEEERO 
MP a#EEDONE 
MOV R4, DASTMPG 

V RS. a4$TMP3 
ERROR 2 
JMP @4EEDONE 
MOV #EEP1 ,a#STMP3 
MOV HEEP1, aASTMPG 
MOV HEEDATO, a#S IMPS 
MOV #EEPO, a#STMP6 
ERROR 2 
JMP @#EEDONE 
MOV HEEP1, aASTMP3 
MOV HEEP1.aASTMPG 
MOV HEEDATO, a#STMPS 
MOV HEEPO, aASTMPG 
ERROR 2 
IMP @#EEDONE 
MOV HEEP3, aASTMP3 
MOV HEEP3. aASTMPG 
MOV HEEDATO, a#STMPS 
MOV HEEPO, AAS TMP 
ERROR 2 
JMP aE EDONE 
MOV HEEP3, aASTMP3 
MOV HEEP3. aASTMPG 
MOV HEEDATO, a#STMPS 
MOV #EEPO, AAS TMP 
ERROR 2 

MP a4EEDONE 


I 9 
11:50 PAGE 112 


GET GENERATED 
:FOR THE ALL IGNMENT 
FLOWS? 


[DATA ERROR.D 


;BAD CONSTANT .D 


FPS CORRECT? 
BAD FPS. 
BAD FPS 


SEQ 0112 


i 9 
CJKDCA=A_KEF11=-A FP DIAG PART 1 MACY11 30A(1052) 1i=JUN-79 11:50 PAGE 113 
79 08:40 T35 SUBD TEST 


CJKDCA.P11 08-JUN- 


003200 


031036 
031330 


031340 
031300 


031350 
000004 


031074 


031076 
031076 104414 


001236 


fo 
So 
o 


EEP2: 


EEP3: 


EEP4: 


lolelo eee ioleole) 


EEDONE : 
3:GO INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
ZVIRTUAL CONSOLE SWITCH — (HAS 
; THE USER TYPED CONTROL G?) 
jew JAI OICIEIOIOIOI OI IOI IOI III III ITSO RI TAOIST RBA AAAS AA AM 


: FEST 36 NORMALIZE ALGORITHM TEST 


* By IS A aves OF THE NORMALIZE 

OW ALGORITHM. TWO PATTERNS ARE USED, 
;* : FIRST THE MINIMUM SITUATION REQUIRING ONE 
;* LEFT SHIFT AND THEN THE MAXIMUM SITUATION 
;* REQUIRING 56 SHIFTS. 


SUIS ISIS IIS OIIOIOIIIOISIOIOIOIOIDIOIIIOIOIDIOIIIDIUIOIOITITII IIIT REI IOI IOI I ot 
T36: SCOPE 
SE DATA PATTERNS THAT REQUIRE ONLY ONE LEFT SHIFT TO NORMALIZE 


SET UP THE yr ON ERROR — 
+ ale R4 SET FIO, FIv, AND F 


are ars TMP2 
AFFP2,P :SET ACO OPERAND 


:* 
Sr 
:U 
FFI: 


;F SPC 

TEST INSTRUCTION 
R5 ZGET FPS 
#FFDATO,RO 3GET THE RESULT 
ACO, (RO) 
MFFP4, R1 71S IT CORRECT 
4 R2 
(RO)+,(R1)+ 
FFG 

;BAD DATA 

FPS CORRECT? 


FF4: 


BR FFERO BAD FPS 
USE DATA PATTERNS WHICH REQUIRE 56 LEFT SHIFTS TO NORMALIZE 
hd RESULT 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0113 





9 
CJKDCA=A KEF11-A FP DIAG PART 1 MACY11 304(1052) sonia ie hs 11:50  DAGE 114 
CJKDCA.P11 08-JUN-79 08:40 136 NORMALIZE ALGORITHM TEST SEQ 0114 


003200 MOV #3200,R4 SET FIU, FIV, AND FD 


R 
031126 001236 MO #FF 6, aaSTMP2 
031310 #FFPO,RO :SET ACO OPERAND 
(RO) ,ACO 
031320 #FFPI RO SRC 
: (RO) ,ACO Test -ANSTRUCTION 


R5 
031300 MOV #FFDATO,RO ‘GET THE RESULT 
ACG, (RO) 
031350 #FFP4,R1 IS IT CORRECT 
000004 


#4,R2 
(RO)+, (R1)+ 
FF10 


oo 
WW 
— 


SESEVYSRNSRERS 


:BATA 
FPS CORRECT? 
BAD FPS 


PERRARRLLE 
ONO UISWN—O 


031170 010537 001240 : R5 ,aASTMP3 
031174 010437 001242 MOV R4 , aASTMP4 
031200 104002 : 

031202 000466 BR FF DONE 


012737 031320 001240 MO AFFP1 ,QASTMPS 
031310 AHF FPO, aASTMPS 
031300 #FFDATO,a#$TMP5S 
031350 001246 MO Porn aranre 


031360 : a@AF FDONE 


031340 001240 ; AFFP3, aASTMP3 

001242 HFFP2 ,aASTMPS 

00 001244 #FF DATO, aASTMPS 

031350 001246 ad MO #FFPSaASTMPG 
031360 2 MP @AF F DONE 


FFDATO: 


031326 





CJKDCA.P11 


CJKDCA=A KEF11~A FP DIAG PART 1 MACY11 30A(1052) 
79 08:40 136 


08-JUN- 


aE 


031356 
031360 


031360 


003200 


031412 
033142 


033152 


033132 


033162 
000004 


001236 


9 
11=JUN=79 11:50  paGE 115 
NORMALIZE ALGORITHM TEST 


FFP2: 500 
0 
0 


0 
FFP3: _— 


FFPG: 


FFDONE: 


TST37: 


:FFPG=FFPO+FFP1 
: =FFP3+F FPG 


J RARER EERE REE EKER EEE EK EKER RK ERE KERAKEEKKEREKKEEKEKEKREKEK KK 
FERRER KEKE ERE REE KEKE KKK EEE KEKE EK KEKE KEKE KKEKKKKEKEEKEEKEEEEKKKK KE 


:FLOATING POINT SECOND PART 


FRR AREER EEK KEKE EERE EEK EKER ERE EERE KEK 
FREER EKER EERE EKER KKK 


FERRER EKER ERE ERK KEE ERKKRKEKEKEEKKK KK 


:STEST 37 ROUND\ TRUNK TEST 
zs i he IS A TEST OF THE ROUND\TRUNK 


;* Z BIT COMMBINATI 


i 


** 
$137: SCOPE 
zROUND AND NORMALIZE TEST 


HH1: 


SET UP 


#3200, ARG 
HHH2, AASTMP2 
#HHPO, 

(RO) ,ACO 
AHHP1 RO 
(RO) ,ACO 
R5 
#HHDATO,RO 
ACO, (RO) 
#HHP2,R1 
#4 ,R2 


IN PARTICULAR TWO THINGS ARE TESTED: 
;* FIRST A CONDITION IN WHICH ROUNDING 
;* RESULTS IN THE NEED FOR RENORMALIZATION, AND 
;* SECOND THE PSW aaa CODES N AND 


SEEKER EKKEEKEKKEEKEKEKKKEK 


- 


THE LOOP ON ERROR 9: teen 


SET FIU, FIV, AND F 
SET ACO OPERAND 


SPC 
test INSTRUCTION 
:GET FP 
3GET THE RESULT 


:1S IT CORRECT 


SEQ 0115 
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022021 HH3; (RO) +,(R1)+ 
001415 HH6 


033132 #HHDATO,RO :DID FLOW GO 

033172 AHHP3 Ri “FROM STATE 663 
#4 ,R2 ‘TO 313 INSTEAD 

(RO) +, (R1)+ [OF TO 353 


000004 


032752 
032220 
zFPS CORRECT? 
032266 
sO ORAL TEST OF THE ABILITY 


IZE TO PRODUCE A ZERO EXP. AND 
;OF THE R\T ALGORITHM TO PROPERLY SET THE FPS 


HH7: 
;SET UP THE LOOP ON ERROR ADDRESS. 
043200 MOV #043200,R4 :SET FIU,FIV,AND FD 
LDFPS R4 " 
031542 001236 HHH, AAS TMP2 7 IN CASE UNDERFLOW 


033062 000244 HHHTRAP, a#F PVECT : TRAP OCCURS 
033212 AHHPS ,RO :SET ACO OPERAND 


(RO) ,ACO 
033222 AHHP6 RO sFSPC 
(RO) ,ACO ‘TEST INSTRUCTION 
R5 “GET FPS 
033132 MO #HHDATO,RO :GET THE RESULT 
ACO, (RO) 
033202 AHHP4 RI z1S IT CORRECT 
000004 #4 ,R2 
(RO) +, (R1)+ 
HH10 
032334 
: SB R2,HH9 
100004 B :FPS CORRECT? 
R4,R5 
032402 JMP @AHHER 
:THIS IS A TEST OF THE R\T ALGORITHM'S 
were ABILITY TO SET BOTH N AND Z ON A ~ O RESULT. 
031612 :SET UP THE LOOP ON ERROR ADDRESS. 
:SET FIV, FIV, AND FD 
031614 043200 MOV #043200,R4 
031642 001236 MOV #HH12, a#STMP2 
033242 HHHP8.RO 7SET ACO OPERAND 


033252 zFSPC 
: DD (RO) ,ACO : TEST INSTRUCTION 
170205 S R5 :GET FPS 
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CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 11-JUN-79 11:50 PAGE 117 
79 08:40 137 ROUND 


CJKDCA.P11 


08-JUN- 


633132 
033232 
000004 


033132 
033202 
000004 


032450 
032516 
100014 


032564 


000200 
031776 
062534 
033242 
033242 


033132 
033262 
000004 


032632 
009000 


032700 


003200 


032076 
033212 


033212 


033132. 


001236 
000244 


001236 


\TRUNK TEST 


#HHDATO,RO 
ACO, (RO) 
#HHP?7, 

#4 R2 

{RODS (R1)+ 
HH16 
#HHDATO,RO 
AHHPS Ri 


#4 ,R2 
(RO) +, (R1)+ 
HH15 


JMP @FHHERG 
pres! THAT CC ARE CLEARED BY R\T 


:SET UP 
#00200.R4 


R4 
#HH18, aASTMP2 
aFPSPUR, a#FPVECT 
#HHPB RO 


(RO) ACO 
#HHPS ,RO 
(RO) ,ACO 
R5 
#HHDATO,RO 
ACO, (RO) 
#HHP10,R 


#4,R2 
(RO) +, (R1)+ 
HH20 


@4HHERS 
SET BY R\T 


£7200, R4 
WrH22, @4STMP2 
#HHPS .RO 

(RO) ,ACO 
AHHPS ,RO 

(RO) ,ACO 

R5 


#HHDATO,RO 
ACO, (RO) 


GET THE RESULT 
21S IT CORRECT 


zFPS CORRECT? 


THE LOOP ON ERROR — 


SET FIV, FIV, AND F 


SET ACO OPERAND 


;F SPC 

TEST INSTRUCTION 
GET FPS 

3GET [HE RESULT 
1S IT CORRECT 


FPS CORRECT? 


4 


THE LOOP ON ug 4 sess. 
:SET FIV, FIV, 


;SET ACO OPERAND 


sFSPC 

: TEST INSTRUCTION 
sGET FPS 

:GET THE RESULT 


SEQ 0117 
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012701 033272 #HHP11,R1 z1S IT CORRECT 
2 000004 #4,R 
(RO) +, (R1)* 


032746 


000010 
zFPS CORRECT? 


033014 
033302 


R5,@4STMP10 

R4 ,a4$TMP11 
MHHP 1 , AAS TMP3 
MHHPO , BA STMPS 
MHHDATO, aS TMPS 
+ pe spam. 
@AHHDONE 


R5,a4$TMP10 


aS 
#HHDATO, aS TMPS 
033162 MOV #HHP2 , AAS TMP6 


: 2 
033302 J @AHHD ONE 
‘ RS, a#$TMP10 


0 2 #HHDATO, aS TMPS 
033202 001246 MOV HHHPS , AAS TMPC 


: 2 
033302 JMP @4HHDONE 
; RS, a#$TMP10 
001240 
001242 
001244 AHHDATO, a#$TMPS 
033202 001246 MOV HHHPS , AAS TMP6 


002 : 2 
032444 032302 MP @AHHDONE 





C 10 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 30A(1052) 11-JUN-79 11:50 PAGE 119 
137 ROUND\ TRUNK TEST 


CJKDCA.P11 08-JUN-79 08:40 SEQ 0119 


Seecen HHERG : 


RS ,a4$TMP10 
R4 ,@ASTMP11 
MHHPY , AAS TMPS 
MHHPS , A'S TMP 

0 MHHDATO , a#$TMPS 
033232 MHHP7 , BAS TMP6 


: 2 
033302 @4HHDONE 
RS ,@A#STMP10 


pe LOL elololo) 
and aad ad ae ed od 


R 


033232 MOV sHHP7 ASHP 
033302 : MP @AHHDONE 
010537 : R5,a#$TMP10 
010437 001254 
#HHDATO, a#'$TMPS 
033232 001246 BHHP? .@ASTMPC 
033302 ; @AHHDONE 
R5,a#$TMP10 


033262 4 
033302 . MP @AHHDONE 
010537 ; R5,a#$TMP10 
010437 001254 
8, a4STMP4 
#HHDATO, a4$TMPS 
ast eaeatctet 
@#HHDONE 
010537 ; RS, a#$TMP10 
010437 001254 


033272 es 
033302 aay 
03 HHER10: 
033014 010537 001252 MO RS, aA#STMP10 
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001254 R46, a#$TMP11 


033272 001246 


033302 J @AHHDONE 

001236 : ° WAS THE TRAP TO 244 
2 #2,R3 ON THE INSTRUCTION 

at sBEING TESTED? 


0001 062534 @a4F PSPUR 
011637 001236 : (SP) ,@#STMP2 FAILURE OF | INTERRUPT 
;DISABLE BIT (FID=1) 
022626 CMP rn :TO INHIBIT TRAP. 
001240 MO tania 
001242 MOV ower 


033302 3 MP @AHHDONE 


oooot. 


SONMMNMUNPNNWN 


;HHPO + HHP1 WITH 
PROPER NORMAL I ZATION 


So 
So 


;HHPO + HHP1 WITH 
BAD NORMAL IZATION 


4 
1 
1 
1 
¢ 
i 
1 
6 
0 
0 
0 
4 
0 
0 


;HHP7 = HHP8 + HHP9 
: = HHPS + HHP6 


OO [-OCOOWOO0 +OOOO0oO 
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CJKDCA=A KEF11<A FP DIAG PART 1 MACY11 30A(1052) 17=JUN=79 
CJKDCA.P11 08=JUN-79 08:40 137 ROUND\ TRUNK TES 
6591 033240 000000 0 
6592 033242 000200 HHPB: 200 
6593 033244 000000 0 
6594 033246 000000 0 
6595 033250 000000 0 
6596 033252 100300 HHP: 100300 
6597 033254 000000 0 
6598 033256 000000 0 
6 033260 000000 0 
033262 000400 HHP10: 400 ;HHP10 = HHP8 + HHP8 
6601 033264 000000 0 
6602 033266 000000 0 
6603 033270 000000 0 
033272 100400 HHP11: 100400 :HHP11 = HHPS + HHP5 
6605 033274 000000 ) 
033276 000000 0 
6607 033300 000000 0 
6608 033302 HHDONE : 
033302 104413 RSETUP 760 INITIALIZE THE FPS AND STACK; AND 
6610 :SEE IF THE USER HAS EXPRESSED 
6611 THE DESIRE TO CHANGE THE SOFTWARE 
6612 * VIRTUAL CONSOLE SWITCH pala (HAS 
6613 7 THE USER TYPED CONTROL G?) 
6614 
6615 
6616 . FER E ARR ERAREER ERE EREKERAREAERREEEREKEEEKREEEERERERKEREKERKKEK 
6617 :*TEST 40 OVER\UNDER TEST 
6619 tS THIS IS A PARTIAL TEST OF THE OVER\UNDER 
6620 >*FLOWS. ONE OVERFLOW AND TWO UNDERFLOW 
6621 [*CONDITIONS ARE CHECKED. THE REMAINING 
6622 = *UNDERFLOW COND. AND THE REMAINING OVERFLOW 
6623 [*COND. WILL BE CHECKED LATER USING THE 
6624 >*XXX INSTRUCTION. HERE EACH CONDITION TESTED 
6625 >*1S CHECKED BOTH WITH TRAPS ENABLED 
6626 :*(FIU=1 OR FIV=1) AND ALSO WITH TRAPS 
7434 : *DISABLED (FIU=0 OR FIV=0). 
6629 - EAA ERE EERE REE EEERKREEEEKKKEKEKK KE 
6630 033304 000004 1S140: SCOPE 
6632 sTEST OVERFLOW CONDITION WITH TRAP DISABLER FIV=0 
6633 033306 6G): 
6634 033 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
6635 033310 012704 000200 MOV #200,R4 [CLEAR FIU, FIV, AND SET FD 
033314 170104 LDFPS RG 
6637 033316 012737 033344 001236 MOV 4GG2, a#$TMP2 
38 033324 012737 034376 000244 MOV #GGERO, af PVECT 
6639 033332 012700 036150 MOV AGGP5 RO :SET ACO OPERAND 
033336 172410 LOD (RO) ACO 
6641 033340 012700 036150 MOV #GGP5 RO SRC 
6642 033344 172010 GG2: ADDD (RO) ACO TEST INSTRUCTION 
6643 033346 170205 STFPS RS [GET FPS 
6644 033350 012700 036100 MOV #GGDATO,RO GET THe RESULT 
6645 033354 174010 STD ACO, (RO) 
6646 033356 012701 036160 MOV #GGP6,R1 :1S IT CORRECT 


SEQ 0121 


CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 SOA IOSe) 
79 08:40 140 


CJKDCA.P11 


033576 


033602 
033602 
033604 


08-JUN- 
012702 


000004 


034474 
000006 


034542 


001200 
033452 
033470 
036150 


036150 


036100 


034610 
001236 
000002 


062534 
001236 
036100 
036160 
000004 
034656 
100006 


034726 
000010 


001236 
000244 


F 10 
1i=JUN-79 11:50 PAGE 
OVER\UNDER TEST 


#4 R2 
GG3: (RO) +, (R1)+ 
GG4 


GG4: 


#1200.R4 
#GG6, a#STMP2 
#GG7,a4FPVECT 
GP5 RO 
4 
(RO) ,ACO 
#GGDATO,RO 
0, (ROS 


FPSPUR 
(SP) ,@#$TMP2 
(SP)+, (SP)+ 
R5 
#GGDATO,RO 
ACO, (RO) 
#GGP6,P1 


#4 Re . 
(RY) +, (R1)+ 
GG9 

@AGGERS 
R2,GG8 - 
#100006 ,R4 
R4,R5 


GGERS 
3 CHECK UNDER FLOW CONDITION WITH 
ZTRAPS DISABLED (FIU = 0) 


LPERR 
MOV #0200,R4 


122 


SET UP_THE LOOP ON ERROR ADDRESS. 
:CLEAR FIU, SET FIY, AND FD 


SET ACO OPERAND 


sFSPC 
sTEST INSTRUCTION 
sNO OVERFLOW TRAP OCCURED 


CHECK STACK DATA 


GET THE RESULT 
71S IT CORRECT 


EXACT ZERO RESULTED IF OVERFLOW 
sFPS CORRECT?, CHECK FER, FZ, FV 


SET UP THE LOOP ON ERROR ADDRESS. 
7SET FIU, FIV, AND FD 


SEQ 0122 
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RL 
033640 001236 #G6G11,a4#$TMP2 
034774 0002464 AGGER7, a#F PVECT 
036120 GP2,RO :SET ACO OPERAND 


036130 ‘ 


: cee" Mime icishonen 
036100 ace nes -RO ‘CET THE RESULT 
036160 rt R% :1S IT CORRECT 
000004 


#4 
cAbos. (RID 
GG13 


035072 2% 
000004 : 4 RG ZFPS CORRECT? 


035140 @AGGERO 
CHECK UNDERFLOW CONDITION WITH 
TRAP ENABLED (FIU = 1) 


SET UP THE LOOP ON ERROR ADDRESS. 
002200 MOV + ra :SET FIU, FIV, AND FD 


033746 001236 MOV #G6G15,a4$TMP2 
000244 #GG16,a4F PVECT 
2.R0 :SET ACO OPERAND 
sFSPC 
036130 
(RO) ,ACO ; TEST INSTRUCTION 


036100 #GGDATO,RO 


035206 
001236 
000002 


062534 ‘ 
001236 : (SP) ,a#$TMP2 
(SP)+, (SP) + 
5 :GET FPS 
036100 MO A#GGDATO,RO *GET THE RESULT 
ACO, (RO) 
036170 #GGP7,R1 zIS IT CORRECT 
000004 #4,R2 
(RO)+, (R1)+ 
6618 
035254 @4GGER11 
: R2,GG17 
100000 #100000,R4 
R4 RS sFPS CORRECT? 
035322 QAGGER12 





H 10 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACYT1 "yan wae? 1Ti=JUN=79 11:50 PAGE 124 
CJKDCA.P11 08=JUN-79 08:40 T40 OVER\UNDER TEST SE? 0124 


034060 2$: 
034060 012704 000012 1$: MOV 
; CHECK OSs 


034064 170305 
34 CMP 
BEQ 


JMP @GGER13 
CHECK UNDERFLOW CONDITION WITH TRAPS 
4} emai (FIU = 0) 


001272 


;SET UP THE a t ERROR ADDRESS. 
000200 MOV oe SET FIU, FIV FD 


034134 001236 MOV #GG20 , a#$TMP2 
035436 000244 WGGER14 ,aaFPVECT 
036120 GP2 RO SET ACO OPERAND 


936200 


F SPC 

A STEST, ala cnt 

036100 #GGDATO,RO 3GET THE RESULT 
ACO, (RO) 

036160 #GGP6,R1 1S IT CORRECT 

000004 


#4 R2 
(RO)+,(P1)+ 
GG2ee 


035534 

000004 ; 4 ZFPS CORRECT? 
Mp 

035602 MP @#GGER16 

7CHECK UNDERFLOW CONDITION WITH TRAP 

TENABLED (FIU = 1) 


: UP THE LOOP ¥ — ADDRESS. 
002200 MOV #2200 .R4 : FIU, FIV, AND F 


R4 
034242 001236 MO #GG24 ,@ASTMP2 
034260 000244 #GG25 ,aAFPVECT 
036120 #GGP2,RO SET ACO OPERAND 


036200 zFSRC 
(RO) ,ACO : TEST INSTRUCTION 


036100 MO #GGDATO,RO 
ACO, (RO? 
035650 


CMP (SP)+, (SP) + 
170205 R5 2GET FPS 





I 10 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 —e 1i=JUN=79 11:50 PAGE 125 


CJKDCA.P11 08-JUN-79 08:40 T40 OVER\UNDER TEST SEQ 0125 
6815 034310 012700 036100 MOV #GGDATO,RO :GET THE RESULT 
6816 034314 174010 STD ACO, ( (ROS 
6817 034316 012701 036210 MOV #GGP9, R1 31S IT CORRECT 
6818 034322 012702 000004 MOV R2 
6819 034326 022021 GG26: CMP {RODs. (RI) 
6820 034330 001402 BEQ GG27 
6821 034332 000137 035716 JMP @4GGER18 
6822 034336 077205 GG27: 50B R2,GG26 
6823 034340 052704 100004 BIS #100004 ,R4 
6824 034344 020405 CMP R4 RS :FPS CORRECT? 
6825 634346 001402 BEQ 1$ 
6826 034350 000167 001456 JMP GGER20 
6827 034354 012704 000012 1$: MOV #12,R4 
6828 : CHECK FEC 
6829 034360 170305 STST. —R5 
6830 034362 020405 CMP R4 RS 
6831 034364 091402 BEQ GG28 
6832 034366 000167 001372 JMP GGER19 
6854 034372 000137 036220 GG28:  JMP @*GGDONE 
6836 034376 013701 001236 GGERO: MOV aeSTMP2,R1 
6837 034402 062701 000002 ADD #2,R1 

034406 020116 CMP R1, (SP) 
6839 034410 001402 BEQ 10$ 
6840 034412 060137 062534 53: JMP a4FPSPUR 
6841 034416 10$: 
6842 034416 170301 STST RI 
6843 034420 020127 000010 CMP R1,410 
6844 034424 001372 BNE 5$ 
6845 034426 022626 CMP (SP)+, (SP) + 
6846 034430 012700 036100 MOV #GGDATO.RO 
6847 034434 174010 STD ACO, (RO) 
6848 034436 012737 036150 001240 MOV AGGPS , AAS TMP3 
6849 034444 012737 036150 001242 MOV AGGP5 . AAS TMPL 
6850 034452 012737 036100 001244 MOV AGGDATO, a#$TMPS 
6851 034460 012737 036160 001246 MOV #GGP6, a4S™MPE 
6852 034466 104001 1$: ERROR 1 
6893 034470 000137 036220 JMP @4GGDONE 
6855 034474 GGER1: 
6856 034474 010537 001252 MOV R5,a4$TMP10 
6857 034500 010437 001254 MOV R4. a4$TMP11 
6858 034504 012737 036150 001240 MOV AGGP5 ,a#$TMP3 
6859 034512 012737 036150 001242 MOV AGGP5 . a#STMPG 
6860 034520 012737 036100 001244 MOV #GGDATO, a#$TMP5 
6861 034526 012737 036160 001246 MOV #GGP6, AAS TMP 
6862 034534 104002 1$: ERROR 2 
6865 034536 000137 036220 JMP @4GGDONE 
6865 034542 GGER2: 
6866 034542 010537 001252 MOV R5,a4#$TMP10 
6867 034546 010437 001254 MOV R4.aASTMP11 
034552 012737 036150 001240 MOy 4GGP5 ,a#$TMP3 
034560 012737 036150 001242 #GGP5. AAS TMPL 
6870 034566 012737 036100 001244 MOV #GGDATO, a#$TMP5 


CJKDCA=A_KEF11=-A FP DIAG PART 1 


CJKDCA.P11 


034574 
602 


035072 


08-JUN-79 


000706 


08:40 


MACY11 30A(1052) 
140 


001246 
1$: 


GGER3: 


001240 


001240 


001246 


GGER6: 
001240 


001246 
1$: 


GGER7: 


5$: 
10$: 


001240 


001246 
1$: 


GGERB: 


J_10 
1i=JUN=79 11:50 PAGE 126 
OVER\UNDER TEST 


MOV Setlenapeotie’- 
JMP @AGGDONE 


MOV R5,a4$TMP10 


V #GGP6 , AAS TMP 
ERROR 2 
JMP @4GGDONE 
BR GGER1 


MOV R5 ,a4$TMP10 


MOV re 
JMP @4GGDONE 


MOV RS ,a#$TMP10 


- maatieasaaitatte 

JMP @4GGDONE 

MOV @4STMP2,R1 
#2,R1 


ADD oR 

CMP R1, (SP) 
BEQ 10$ 

JMP a4F PSPUR 
STST R1 

CMP R1,412 
BNE 5$ 


CMP (SP)+,(SP)+ 
MOV #GGDATO,RO 


TMP4 
MOV A#GGDATO, a#$TMPS 
MOV see. oemre 


JMP @AGGDONE 


SEQ 0126 


K 10 
CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 1i-JUN-79 11:50 PAGE 127 
CJKDCA.P11 08-JUN-79 08:40 T40 OVER\UNDER TEST SEQ 0127 
035072 010537 R5 ,a#$TMP10 
0 10437 R4,a4$TMP11 
#GGP3, poe di 
#GGP2, aS TMP 
#GGDATO, S'S TMPS 
ae , AS TMP6 


@4GGDONE 


Ra oestre iy 


.a$T 
#GGDATO, SNS TMPS 
001246 te , aASTMP6 


1$: 
@A4GGDONE 


GGER10: 
R5,a4$TMP10 


001240 


#GGDATO, a#$STMPS 
1 4GGP7 , aS TMP6 


1 
035250 Lewiid 
035254 GGER11: 


RS, a4$TMP10 
R4,a#$T 


#GGDATO, a#$TMPS 
8 #GGP7 , aASTMP6 


104002 2 
035316 JMP @4GGDONE 


035322 GGER12. 
R5,a4$TMP10 


#GGDATO, a#$TMPS 


#GGP7, a#$TMP6 
1$: 2 
@4GGDONE 


GGER13: 
R5,a@4$TMP10 


GP2, af 
#GGDATO, a#$TMP5 
035422 036170 001246 #GGP7 , a#$1MP6 





CJKDCA=A_KEF11-A FP DIAG yi 1 MACY11 — 


CJKDCA.P11 08-JUN-79 08: 


035430 
035432 


035474 
035476 
035504 


035712 


035716 
035716 
035722 


104002 
000137 036220 


013701 001236 
062701 000002 


9625 34 


174010 
012737 


1252 
001254 


001240 


001246 


001240 
001242 
001244 
001246 


001240 


001246 


001240 


001246 


1$: 


GGER14: 
A 


53: 
10$: 


1$: 


GGER15: 
MO 


13: 


GGER16: 


1$: 


GGER17: 


1$: 


GGER18: 
MO 


1i=JUN=79 
OVER\UNDER TEST 


2 

@*GGDONE 
aA*$TMP2,R1 
#2,R1 

R1. (SP) 
10$ 


@4F PSPUR 


R1 

R1,412 

5$ 

(SP)+, (SP>+ 
#GGDATO,RO 

ACO, (RO) 

#GGP1, a@ASTMP3 
#GGP3,a4$STMPS 
#GGDATO,a4$TMP5 
#GGP6, aASTMP6 


2 
@YGGDONE 


R5,a4STMP10 


#GGDATO, a#$TMPS 
#GGP6, aS TMP6 


2 
@4GGDONE 


R5,a@4$TMP10 


8, 
#GGDATO, aA STMPS 
#GGP6 , a#STMPC 


2 
@4GGDONE 


R5,a#$TMP10 
R4 , a4$T. 


#GGDATO, a#STMPS 
or. , aS TMP6 
@4GGDONE 


R5,a#$TMP10 
R4,a4STMP11 


L 10 
11:50 PAGE 128 


SEQ 0128 





mM 10 
CJKDCA=A_KEF11~-A FP DIAG PART 1 MACY11 30A(1052) 1i-JUN-79 11:50 PAGE 129 
CJKDCA.P11 08-JUN-79 08:40 140 OVER\UNDER TEST SEQ 0129 


912737 036120 001240 #GGP2, aeSTMP3 
036200 AGGP8. AAS TMPS 
#GGDATO, a&#$TMPS 
001246 2 #CGP9 at aaSTMP6 
5 @AGGDONE 


GGER19: 
001252 MO R5 ,a4#$TMP10 
001254 


036120 001240 

036200 GP8 ,av$T 
036100 #GGDATO, SySTMPS 
036210 001246 #OGP9, AWS THP 6 


1$: 
036220 @4GGDONE 


GGER20: 
001252 R5,@#$TMP10 


001240 

001242 
036100 001244 #GGDATO, a#$TMPS 
036210 001246 “ MOV #OGP9. , DAS TMP 
036220 ; MP @4GGDONE 


GGDATO: 
0 


OVER FLOW = GGP5 + GGPS 


OVERFLOW RESULT 

UNDERFLOW RESULT 

:GGP6 = _SGP4 + GGP5 

: = GGP3 + GGP2 (FIU = 0) 
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CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 30A(1052) 11=-JUN-79 11:50 PAGE 130 
CJKDCA.P11 08-JUN-79 08:40 140 OVER\UNDER TEST SEQ 0130 


: = GGP3 + GGP1 
GGP7: ee: :GGP7 = GGP3 + GGP2 (FIU = 1) 


GGP8: 


GGP9: 


GGDONE : 
:GO_ INITIALIZE THE FPS AND STACK; AND 
zSEE IF THE _ HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH — (HAS 
THE USER TYPED CONTROL G?) 


{RRRRRRER RARER RRR REE EERE RARE ERR R EERE EEE ER RE 
:HTEST 41 LDCFD AND LDCDF TEST 1 Ry 
j*THIS IS A TEST OF LDCFD AND LDCDF. 


— ot oo oa a 2) os 


NOR) 2 a Ss wes 
NSSBNSARWW=OS 


NNN NNN ANAS 


ashlee tadalafil ible 
$141: SCOPE 
;TEST FOR CORRECT AUTO INCREMENT CONSTANT. 


HXx1: 
;SET UP THE LOOP ON ERROR ADDRESS. 
000200 MOV : 7SET LONG INTEGER MODE 


037640 


037650 
036254 001236 


037654 MP a4 2 71S RO CORRECT 
037216 

5 :GET FPS 
037630 MOV #HXDATO,RO 

ACO, (RO) :GET ACO 
037720 #HXP7,R1 ;SEE IF RESULT IS 
000004 #4,R2 : CORRECT 

(R1)+, (RO) + 

HX7 
037650 #HXP2 ,R1 :DID FD GET 
037630 #AXDATO, RO ; COMPLIMENTED? 


000004 
Ris, (RO) + 


000137 037256 SAKER2 
077205 : R2,HX5 





B 11 
CJKDCA=A_ KEF11=A FP DIAG PART 1 MACY11 7: beet 1i=JUN=79 11:50 PAGE 131 
CJKDCA.P11 08-JUN-79 08:40 LDCFD AND LDCDF TEST SEQ 0131 


037306 
HX7: 

000200 FPS CORRECT? 

R4,R 
037354 

LDCDF 

;SET UP THE LOOP ON ERROR ADDRESS. 

000200 MOV #200,R4 

LDFPS R4 


0127 037640 MHXP1 ,RO 
172410 (RO) ,ACO 


012700 037650 MHXP2 ,RO 
012737 036416 001236 HHX9 , BASTMP2 


170001 
177420 : (RO) +,ACO TEST INSTRUCTION 
020027 037660 RO ,AHXP2+10 :WAS A GOOD 


001402 HX10 CONSTANT USED 
000137 037236 @AHXERS :TO INCREMENT RO? 


170205 
0 


R5 
037630 #HXDATO,RO 


ACO, (RO) GET RESULT 
037730 ee 


000004 #4,R2 
(R1)+, (RO)+ :IS IT CORRECT? 
HX14 
037720 #HXP7 ,R1 
#HXDATO,RO 
#4,R 
(R1)+, (RO) DID FD FAIL TO GET 
HX13 ; COMPLIMENTED? 
037372 @AHXERG 
: R2,HX12 
037422 @AHXER7Z 
077220 
012704 000000 FPS CORRECT? 
020405 
001402 
000137 037354 
3; TEST GR7 IMMEDIATE MODE CONSTANT 


HX15: 
104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 





C 11 
CJKDCA=A_KEF11=-A FP DIAG PART 1 MACY11 30A(1052) 1i=JUN-79 11:50 “ BAGE 132 
CJKDCA.P11 08=JUN-79 08:40 141 LDCFD AND LDCDF TEST SEQ 0132 
000200 MOV ae RS 


936556 001236 MOV #HX16, aASTMP2 
037452 000004 #HXERS, AAERRVECT 


CL R 
043243 : #5201 ,ACO 
aie 


R1 
062566 000004 #CPSPUR, emer me 
000003 R143 a eanect PC WAS 


sSET FD 


HX17 
037506 SAHXER1O 


SET UP THE LOOP ON ERROR ADDRESS. 
000200 v #200.R4 
R4 


036646 001236 MOV #HX18 ,@ASTMP2 
037710 MHXPE RO 
062566 000004 ACPSPUR , @#ERRVECT 
037650 MOV #HXP2 ,RO 

(RO) ,ACO 


037630 MHHXDATO,RO 
ACO, (ROS :GET RESULT. 
037720 #HXP7 RI 
000004 #4 R2 
HX19: (RO) +, (RI)+ 31S RESULT CORRECT? 
H 


037256 @AHXER2 
HX20: R2,HX19 


ALS 1 LDCFD WITH NEGATIVE OPERAND 
; SET UP THE LOOP ON ERROR ADDRESS. 


000200 MOV -* nae 


036730 001236 MOV HHX22 , BASTMP2 
037710 HXP6 ,RO 


037670 MOV 
177410 : LDCFD (RO),ACO 


012700 037630 MOV MHXDATO,RO 
174010 STD ACO, (RO) GET RESULT 


012701 037700 MHXPS ,R1 
000004 #4 ,R2 
(R1)+,(RO)+ 
HX26 


012701 037720 #HXP7,R1 





D 11 
CJKDCA=A_KEF11-A FP Ls PART 1 MACY11 ss? Nena 1i=JUN=79 11: rs "AGE 133 
CJKDCA.P11 08-JUN-79 08:40 LDCFD AND LDCDF T SEQ 0133 


037630 M#HXDATO,RO 

000004 #4 ,R 
(R1)+,(RO)+ zWAS SIGN INCORRECT 
HX25 : 


037540 

037560 aMHXERT2 
R2,HX23 
0 


SET UP THE LOOP ON ERROR ADDRESS. 
000200 #200,R4 
037016 R4 


037020 012700 037640 MHXP1 ,RO 
037024 172410 L (RO) ,ACO 
037026 172010 (RO) ,ACO 


037030 012737 037042 001236 HHX28 , AASTMP2 
037036 012700 037640 M #HXP1 ,RO 
037042 177410 : (RO) ,ACO 


037044 170205 R5 


037046 012700 037630 M#HXDATO,RO 
037052 174010 ACO, (RO) 3GET RESULT - 


037054 012701 037640 MHXP1 ,R1 
037060 000004 M #4,R 
037064 : po a ei stS 17 0? 


037066 
037070 000137 037610 J @AHXER13 
037074 : R2,HX29 


037076 000204 #204,R4 sFPS CORRECT 
R4,R5 
HX31 

037336 QAHXERS 


0 


:SET UP THE LOOP ON ERROR ADDRESS. 
000200 #200,R4 
037120 RS 


037122 037710 AHXP6 RO 
037126 (RO) ,ACO 


037130 037142 001236 rien fl aASTMP2 
037136 037640 M MHXP1 RO 
037142 : LDCFD (RO),ACO 
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CJKDCA=A_KEF11-A FP DIAG PART 1 MACY11 _— 11=JUN=79 11:50 PAGE 134 
CJKDCA.P11 08-JUN-79 08:40 LDCFD AND LDCDF TEST SEQ 0134 


037144 170205 R5 


037146 012700 037630 #HXDATO,RO 
037152 174010 ACO, (RO) ;GET RESULT 


037154 012701 037640 #HXP1 ,R1 

037160 000004 #4,R 
(R1)+,(RO)+ 1S IT ZERO? 
HX34 


000137 037610 J @AHXER13 
037174 : R2,HX33 


037176 000204 a zFPS CORRECT? 
Aixge 

0372 037336 J QAHXERS 

037212 037740 HX35: @AHXDONE 


zRO INCORRECT 


037216 037654 001242 HXER1: MOV MHXP2+4 , AAS TMPS 
001240 MOV RO, aASTMP3 
: ERROR 2 
037740 JMP @AHXDONE 


037660 001242 : MOV HHXP2+10 , aA STMPS 
001240 MOV RO, a4$STMP3 

0 : ERROR 2 

037252 037740 JMP noone 


037256 037650 001244 +f : MOV HHXP2 , AASTMPS 
037264 037720 001250 MO HHXP7 , AASTMP7 
037272 037630 001246 : HHXDATO, a4 $TMPG 
037300 1$: E 2 
037302 037740 QAHXDONE 
037650 001244 f : MHXP2 , BAS TMPS 
037720 001250 MO #HXP7, AASTMP7 
037630 001246 HX : s #HXDATO, @4STHPG 
037740 . MP @AHXDONE 


001240 : R5 ,a#$IMP3 
001242 MO oman 


104002 : 
037350 037740 MP @AHXDONE 


037354 001240 HXER8: R5 ,a#STMP3 
037360 7 001242 MO ered: 


1$: 
037740 J @AHXDONE 
001244 HXER6: MHHXP2 , AASTMPS 
001250 MO HHXPB , AAS TMP7 
037630 001246 RERGE: :  Sentataieattate. 


037416 037740 @AHXDONE 





CJKDCA=A_KEF11-A FP “oy PART 1 MACY11 7: Mae 


CJKDCA.P11 


037446 
037452 


037472 
037476 
037500 
037502 


037610 
037616 
037624 


08-JUN-79 


011637 
022626 
104002 
000137 
162701 
006 


012737 
000 


012737 
012737 
000137 


0C0000 
000000 
000000 
000000 
000000 
000000 
000000 


000577 


08:40 


037650 

037730 
037630 
037740 
000001 
036562 
062566 


001236 


037740 
000003 


036562 
001242 


001240 
037740 
037670 


3 
037630 
037740 
037640 


037640 
037272 


001244 
001250 
001246 


001244 
001250 


001244 
001250 
001246 


001244 
001250 


HXER7: 


HXER11: 


HXER12: 


1$: 


HXER13: 


HXDATO: 


HXP1: 


HXP2: 


HXP3: 


F 11 
1Ti=JUN=79 11:50 PAGE 135 
LDCFD AND LDCDF TEST 


MOV MHXP2 ,aASTMPS 
MOV HHXP8 , AAS TMP7 
MOV MHXDATO ,a#$TMP6 


2 
JMP @AHXDONE 


BIT #1, (SP) sSEE IF IT 

BNE 1$ AN ODD ADDRESS 
CMP #HX165, (SP) 

BEQ 1$ 


JMP a@4CPSPUR 


MOV (SP) ,aASTMP2 
CMP (SP)+,(SP)+ 


2 
JMP @AHXDONE 


: SUB #3,R1 
R1 


MOV #HX165,R2 
MOV R2,a4$TMP4 


R1,R2 
MOV ect 
JMP @AHXDONE 


MOV MHXPS ,AASTMPS 
MOV MHXPS ,aASTMP7 
JMP @AHXER2Z2 

MOV MHXP4 , AAS TMPS 
MOV MHXPS , AAS TMP7 
MHXDATO, a#STMP6 


2 
JMP @AHXDONE 
MOV MHXP1 , AASTMPS 


MOV MHXP1 , AASTMP7 
JMP @AHXER22 


oo 


SEQ 0135 


G 11 
CJKDCA=A_ KEF11=A FP Di so onned 1 MACYi1 —_— afte be ic 11: We | sane 136 


CJKDCA.P11 


037716 
037720 


037740 


037740 


037742 


037744 


08-JUN-79 


040556 
000000 000000 
000000 000000 


FD AND LDCDF TES 


RSE TUP 3GO_ INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


MAARALOSAALALARESZASSSE SERRA SSESESESE RRR ER SR ER RRR RAR ASR RRA SERRA SSS 


:HTEST 42 CMPD TEST 


THIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT A SUBROUTINE 
itor ts TO SET UP OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 
7 *RESU 


eg 


’ 
SAREE AEE ERE ERE EERE ERERAERREEA ED 


1S142: SCOPE 
zTEST THE CMPD INSTRUCTION WITH (FSRC=AC=0) 
; :SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a#CMPSUB 

1$: . 0,6,0,0 ACO 

2s: , 0.0.9.0 ZF SRC 

3$: FPS BEFORE EXECUTION 
“FPS AFTER EXECUTION 


2 ERROR FPS 
4$: FPS cRROR 


SEQ 0136 





H 11 
CJKDCA=A_KEF11=A FP od PART 1 MACY11 Vi 11=JUN=79 11:50 PAGE 137 
40 142 CMPD TEST 


CJKDCA.P11 


08-JUN-79 08: 


000200 
000210 
000200 
104002 


104414 


125252 


040556 
0060000 000000 


040556 
000000 000000 


040556 


000000 000000 


040556 


;TEST CMPD WITH (AC=0) AND FSRC POSITIVE. 
AAA2: 


LPERR ;SET uP 
JSR PC ,a4CMPSUB 
1$: «WORD 0,0,0,0 
23: 25252 
525 
125252 
2525 
3$: 200 
200 
210 
4$: ERROR 2 
;TEST CMPD WITH (AC=0) AND FSRC NEGATIVE 
AAAS: 
LPERR ;SET UP 
JSR PC ,a4CMPSUB 
1$: -WORD 0,0,0,0 
23: 125252 
125252 
525 
125252 
3$: 200 
210 
200 
4$: ERROR 2 
sTEST CMPD WITH (FSRC=0) AND AC POSITIVE 
AAAG: 
LPERR sSET UP 
JSR PC, @4CMPSUB 
1$: 25252 
52525 
125252 
52525 
2s: -WORD 0,0,0,0 
3$ 200 
210 
200 
4$: ERROR 2 


STEST CMPD WITH (FSRC=0) AND AC NEGATIVE 
AAAS: 


L :SET UP 
J PC, @4CMPSUB 
1$: 1 
1 
5 
1 


THE LOOP ON ERROR ADDRESS. 


SAC 
sFSRC 


FPS BEFORE EXECUTION 
FPS Ar TER EXECUTION 
ERROR FPS 


THE LOOP ON ERROR ADDRESS. 


SAC 
SF SRC 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 


THE LOOP ON ERROR ADDRESS. 


ZAC 


sFSRC 


FPS BEFORE EXECUTION 
seaon ae EXECUTION 


THE LOOP ON ERROR ADDRESS. 


ZAC 


SEQ 6137 


I 11 
CJKDCA=A KEF11=4 FP DIAG PART 1 MACY71 7 ated Ti=JUN=79 11:5) PAGE 138 
CJKDCA.P11 08=JUN-79 08:40 T42 CMPD TEST 


040152 000000 000000 000000 2%: «WORD 0,0,0,0 sFSRC 
000000 

3$: zFPS BEFORE EXECUTION 
sFPS AFTER EXECUTION 
sERROR FPS 

4$: 

Baty CMPD WITH AC POSITIVE AND FSRC NEGATIVE 

; PERR ;SET UP THE LOOP ON ERROR ADDRESS. 
040556 PC ,@4CMPSUB 


1$: 2525 sAC 
e$: 3 F SRC 


3$: 0 FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
“g ERROR FPS 


R SET UP THE LOOP ON ERROR ADDRESS. 
040556 1% JSR 2 PC ,@4CMPSUB at 


sFSRC 


:FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 


TEST CMPD WITH AC POSITIVE AND FSRC POSITIVE 
See EAC LESS THAN EFSRC. 


SET UP iHE LOOP ON ERROR ADDRESS. 


R 
040556 JS PC, @4CMPSUB 
; 1$: 3AC 


2$: ZF SRC 


FPS BEFORE EXECUTION 


SEQ 0138 
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CJKDCA.P11 08-JUN-79 


040556 


040556 


040556 


1$: 
2$: 


3$: 


4$: 
sTEST CMPD WITH AC POSITIVE, 
AAA10: 


1$: 
2$: 


3$: 


4$: 


;TEST CMPD WITH AC POSITIVE, 
AAAS: 


PC ,a#CMPSUB 


TEST CMPD WITH AC to Ie 
AND F SRC GREATER THAN AC 


sFPS AFTER EXECUTION 
ZERROR FPS 


FSRC POSITIVE AND EAC GREATER THAN EF SRC 
;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 


7F SRC 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 
FSRC POSITIVE AND AC EQUAL TO FSRC 
:SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 
sFSRC 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 


FSRC POSITIVE, EAC EQUAL TO EFSRC, 
;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 


sFSRC 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 


SEQ 0139 
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CJKDCA.P11 O08-JUN-79 08:4 


104414 
og hf 040556 


104414 
estes 040556 


000137 040746 


CMPD T 
TEST CMPD WITH AC POSITIVE, FSRC POSITIVE, EAC EQUAL TO EFSRC. 
ZAND_AC GREATER THAN FS 
AAAN2: 
;SET UP THE LOOP ON ERROR ADDRESS. 
i JSR, PC aecMPSUB . 
zAC 


23: sF SRC 


3$: FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
4$ ZERROR FPS 


TEST CMPD WITH AC tone FSRC NEGATIVE, EAC EQUAL TO EFSRC, 
ZAND AC GREATER THAN FSRC 


Pe ;SET UP THE LOOP ON ERROR ADDRESS. 
1$: 4 ZAC 


2$: 


3$: :FPS BEFORE EXECUTION 
sFPS AFTER EXECUTION 
od ZERROR FPS 


FINISHED CMPD TEST. 


THIS SUBROUTINE, CMPSUB, IS CALLED TO SET UP, EXECUTE 
zAND CHECK THE RESULTS OF A CMPD INSTRUCTION. 
:1T IS CALLED THUS: 


JSR 
ACARG: .WORD X ;AC_ OPERAND 
F SRCARG: . WORD :FSRC_OPERAND 
: . WOR FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 


zFPS ERROR 
RETURN ADDRESS 

: THE OPERANDS ARE SET UP (USING ACQ FOR THE AC OPERAND). THEN 
:FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, CMPD, IS EXECUTED. 


SEQ 0140 
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08-JUN-79 


012601 


016100 
170100 


012737 
010100 
172410 
010100 
062700 
000240 
173410 
170205 
016104 


010137 


026105 
001003 
062701 
000111 
sinh 
012700 


001003 
077303 


000020 


040610 


000010 


000022 
001240 


001246 


000024 


000026 


040736 


000004 


001236 


001242 


sAFTER THE EXECUTION THE FPS IS 


11=JUN=79 
MPD TEST 


Lt 11 
11:50 PAGE 141 


CHECKED AGAINST FPSA, IF i IS A MATCH 


; THEN THERE WAS NO ERROR AND CONTROL IS RETURNED TO CONT 
:THE FPS IS INCORRECT IT IS COMPARED WITH FPSE IN AN ATTEMPT TO ANALYSE 


>THE FAILURE. 


IF THE FPS IS THE SAME AS FPSE THEN CONTROL IS 


;RETURNED TO THE ERROR CALL AT LOCATION ERR. IF THE FPS WAS 
:NOT CORRECT BUT DIDN'T MATCH FPSE A GENERAL ERROR IS REPORTED 


AND CONTROL IS PASSED TO CONT. 


CMPSUB: MOV 


1$: CMPD 


(SP)+,R1 
20(R1) ,RO 
RO 


#1$,a4$TMP2 
R1,R0 

(RO) ,ACO 
R1,RO 
#10,R0 

(RO) ,ACO 

R5 

22(R1) ,R4 
R1,a4$TMP3 
R1,@4$TMP4 
#10, a4$TMP4 


R5,a4$TMP5S 
+ - ea 


24(R1) RS 
2$ 

#26,R1 

(R1) 

2 

5$ 
ACMPTMP RO 
ACO, (RO) 
R1,R2 
#4,R3 
(R2)+, (RO)+ 
6$ 

R3.4% 


PICK oe : POINTER TO THE 
GUMEN 


GET THE "PBs BEFORE EXECUTION. 
;LOAD IT INTO THE FPS. 


:SAVE ADDRESS OF CMPD INSTRUCTION. 


:G—ET ADDRESS OF AC OPERAND. 
LOAD ACO OPERAND 


; COMPUTE FSRC OPERAND 
ADDRESS 


FOR SCOPING. 
EXECUTE THE TEST INSTRUCTION. 


:SAVE FPS AFTER INSTRUCTION. 


:GET EXPECTED FPS. 
:1F INCORRECT SET UP FOR 
7AN ERROR CALL. 


:WAS FPS CORRECT? 
:BRANCH IF YES. 


:WAS THE FPS THE SAME 
zAS THE EXPECTED INCORRECT FPS? 
BRANCH IF NO MATCH, 


:1F THE EXPECTED i 


sFPS MATCHED THE RESULTAN 


RETURN TO THE ERROR CALL 


SIN THE CALLING ROUTINE. 
OTHERWISE REPORT INCORRECT FPS 


i: 1F FPS WAS CORRECT MAKE SURE 
;ACO WAS NOT AFFECTED BY CMPD, 


SEQ 0141 
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000161 000030 5$: JMP 30(R1) ;RETURN 


6$: ;REPORT ACO MODIFIED BY CMPD 
010137 001240 MOV R1,a4$TMP5 
012737 040736 001242 MOV A#CMPTMP , aS TMPS 
104002 7$: ERROR 2 
000767 BR 5$ ;RETURN 


000000 000000 CMPTMP: .WORD 0,0,0,0 


000000 
000000 


:GO_ INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH 4 plea (HAS 
; THE USER TYPED CONTROL G?> 


DIDI IIOIIOIIOIIDIOIIOIIOIIOIDIIOIIOIIOIOIIDIOIIOIOIOI IOI IDIDIDIOIIOI IID fot t 
*TEST 43 DIVD WITH (FSRC=0) AND (BUT FD) TEST 

+ 

:*THIS IS A TEST OF THE DIVD INSTRUCTION WITH A 

:*ZERO DIVISOR. THE CONDITION IS CHECKED WITH BOTH 

;*TRAP ENABLED AND TRAPS DISABLED. 

+t 


FREER REE ERK REE RRR RAE EKER EERE EERE 


000004 15143: SCOPE 


FIRST TEST hee WITH (FSRC=AC=0) AND TRAPS DISABLED. 
104414 LPERR 3SET UP He LOOP ON ERROR ADDRESS. 
012704 040200 BBBO : #40200.R4 SET UP FPS 
;WITH INTERRUPTS 
DISABLED. 
170104 R4 
041224 000244 MOV A#BBBER1 ,a#FPVECT;SET UP FOR ANY FP INTERRUPTS. 
041010 001236 #BBB1 , AASTMP2 
041430 #BBBP 1 .RO SET UP ACO = 0 
(RO) ,ACO 
012701 041430 #BBBP1,R1 zFSRC = 0 


174411 : (R1),ACO TEST INSTRUCTION 


170205 R5 :GET FPS 
170303 R3 :GET FEC 


012704 140204 #140204 ,R4 EXPECTED FPS. 
020405 R4,R5 71S FPS CORRECT. 
001131 BBBER2 :1F INCORRECT BRANCH. 


012702 000004 #4 ,R2 EXPECTED FEC. 
020203 . R2,R3 :I1S FEC CORRECT? 
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BNE BBBER3 :1F INCORRECT BRANCH. 
;TEST DIVD WITH (FSRC=0) AND TRAPS DISABLED. 
BBR : 


;SET UP_THE LOOP ON ERROR oe 
040200 MOV oo [LOAD FPS WITH TRAPS DISABLED 


REF 


041066 001236 #BBB3, aS TMP2 
041440 #B88P @-RO :SET UP ACO OPERAND (NON ZERO). 
041430 MO #BRBP1 RO :FSRC=0 

: (RO) ,ACO 


RS set FPS. 
R3 :GET FEC. 


140200 #140200 ,R4 sEXPECTED FPS. 
R4,R5 1S FPS CORRECT? 
7 IF INCORRECT BRANCH. 


000004 sEXPECTED FEC. 
WAS FEC CORRECT? 
:1F INCORRECT BRANCH. 
FSRC=0) AND TRAPS ENABLED. 


:SET UP THE LOOP ON ERROR ADDRESS. 
~ ce > SET UP FPS. TRAP ENABLED. 


ae Sexe Zee See SS Fee 


Nm BO ROR MALS 


012737 001236 #BBBS , AAS TMP2 
012700 0 #BBBP2 RO :SET UP ACO OPERAND (NON ZERO). 
172410 (RO) ACO 


012737 000244 #BBB6,aAFPVECT ;SET UP FOR THE EXPECTED INTERRUPT. 
012700 30 #BBBP 1 ,RO 7FSRC=0 ‘ 


174410 : (RO) ,ACO TEST INSTRUCTION (SHOULD RESULT IN TRAP). 
170000 C 


000502 BBBER4 :GO REPORT FAILURE, NO TRAP. 


022716 : #BBB5S+2, (SP) ; TRAP TO HERE WHEN THE DIVISION BY 0 
SOCCURS. FIRST SEE IF THE ADDRESS OF 
;THE TRAP_IS 2+THE ADDRESS OF THE TEST 

;DIVD INSTRUCTION. 

001402 


1$ 
000137 @4F PSPUR hp a REPORT AN UNEXPECTED 
170205 '$: R5 3GET : e 
170303 R3 :GET 
022626 MP (SP)+,(SP)+ ERESET, THE STACK, 


012704 100200 #100200 ,R4 EXPECTED FPS. 
020405 R4,R5 21S FPS CORRECT? 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 


— — —— — 
— —— — —s a 


Ww ks 
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001040 :1F INCORRECT BRANCH. 


012702 000004 EXPECTED FEC. 
020203 21S FEC CORRECT? 
001047 BBBER3 :1F INCORRECT BRANCH. 


000137 041450 OTHERWISE GO TO NEXT TEST. 


; TRAP HERE IF AN UNEXPECTED INTERRUPT OCCURS. 
062737 9000002 001236 ®BBER1: ADD #2 ,QASTMP2 SEE IF THE INTERRUPT OCCURRED 
sDURING THE EXECUTION OF THE DIVD 
: INSTRUCTION BEING TESTED. 
021637 001236 a atta 


001402 
000137 062534 @4F PSPUR :1F NOT REPORT UNEXPECTED FP TRAP. 
022626 : MP (SP)+, (SP)+ sRESET THE STACK. 

R3 ;GET FEC. 


R5 GET FPS. 
001240 #4, QASTMPS EXPECTED FEC. 

R3,Q4STMP4 

get tat 


1250 RO, a#$TMP7 
140200 001246 > 7140200, - 24S TMP6 


WITH TRAPS DISABLED. 
041450 @4BBBDONE 


REPORT FPS INCORRECT: 
001242 BBBER2: MOV R5 ,@ASTMP4 
R4 ,Q#STMPS 
RO. a#STMP6 
R1,a4$TMP7 


2 
@4BBBDONE 


;REPORT 4a INCORRECT: 
BBBER3: MO a7 rere 
R2,a4STMP3 
RO, SWS IMPS 
RI .@#STMP/ 


@4BBBDONE 


sREPORT NO TRAP OCCURRED AFTER TRYING TO DIVIDE 
BY ZERO WITH ALL_TRAPS ENABLED. 
BBBER4: STST R3 :GET FEC. 

STFPS ZGET FPS. 


1$: 


1$: 


RRRRRR RKRRKKK 


Ss 


001242 


RVIS 


MP5 
001246 riObeblvat aa TMP6 
001252 MOV RI. aS P10 


RRRRRRRRR 


aad al ed cs od nd ed ed ee 
Giueoo ne 
On 
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041426 000410 BR BBBDONE 
000090 000000 BBBP1: .WORD 0,0,0,0 
054321 023456 BBBP2: .WORD 12345,54321,23456,76543 


DONE : 
104413 :GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
= THE USER TYPED CONTROL G?). 


FRR KERKKKKEKKKKKKEKKKKKKREKEEKKEKKEEEEREKKEEEKKKKKKREK 


TATEST a6 DIVF TEST 


se 


>*THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A SUBROUTINE IS 
: RESULTS. SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 


FI IK IK IKK KKK KKK EKER KIRKE KEKE EKER KER EK 


18144: SCOPE 
CHECK DIVF WITH (AC=0). 
CCCI: 


SET UP THE LOOP ON ERROR ADDRESS. 
PC ,DIVF SUB 


0,0 ZAC 
12345 ,67012 sFSRC 
0,0 RES 

sFPS BEFORE EXECUTION. 

sFPS AFTER EXECUTION 
ee aati sERROR RESULT 
AC POSITIVE, FSRC POSITIVE AND IN ROUND MODE. 


SET UP THE LOOP ON ERROR ADDRESS. 


34 JS PC ,a4DIVF SUB 
125252 : 65652,125252 
000000 : 6 0 
125252 : WOR 40252,125252 


AC 
SFSRC 
RES 
:FPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
125252 : $0052. 125252 [ERROR RESULT. 


aH -3 Mmm mI 1 
PANAMA 


gies? DIVF WITH AC POSITIVE, FSRC POSITIVE. 


LPERR SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,DIVF SUB 
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sAC 
sFSRC 


FPS BEFORE EXECUTION. 
[FPS AFTER EXECUTION. 
140200,0 ERROR RES. 
ERROR 2 : SIGN BAD 
4454 DIVF WITH BOTH OPERANDS POSITIVE. 


;SET UP THE LOOP ON ERROR ADDRESS. 


7 
40200, 


a4D IVF SUB 
56peF 177777 


: . 54 
177777 : 5 42777.177777 


TFSRC 


ZRES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
002000 : . WO - chnintas ERROR RES. 


:SET UP THE LOOP ON ERROR ADDRESS. 
042234 S C,a4D1VF SUB 
177777 : 19897, 177777 : 
000000 : 12300,0 ZFSRC 


125252 : 40252,125252 ES 
: 6 FPS BEFORE EXECUTION. 


0 :FPS AFTER EXECUTION. 
177777 : . WORD an ZERROR RES. 
ROUND CONSTANT. 
7SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a#DIVF SUB 
64600, 1 AC 
66600.0 *FSRC 
36200.1 sRES 
:FPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
 acmeaad ERROR RES. 


SET UP THE LOOP ON ERROR ADDRESS. 
042234 F SUB 
177776 : sAC 
000000 : ° zFSRC 
177776 ; . WORD :RES 
:FPS BEFORE EXECUTION. 


0 FPS AFTER EXECUTION. 
003400 : . ee a ERROR RES. 
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SET UP THE LOOP ON ERROR ADDRESS. 

042234 

125252 zAC 

000000 sFSRC 

107070 3 

FPS BEFORE EXECUTION. 

[FPS AFTER EXECUTION. 

107070 : . 51543,107070 ZER ROR RES. 

: 2 DIDN'T INCREMENT THE EXPONENT 

AFTER DIVID NORMALIZATION. 


NEGATIVE, FSRC NEGATIVE. 
SET UP THE LOOP ON ERROR ADDRESS. 
042234 PC ,@4D IVF SUB 


000000 : . 140400,0 zAC 
000000 : ° 140500,0 zFSRC 
125253 : 040052.,125253 ;RES 
: 0 zFPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
125253 : . WO 140052,125253  ;ERROR RES. 
: 2 :BAD SIGN. 


NEGATIVE AND FSRC POSITIVE. 


;SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@4DIVF SUB 
160077, ZAC 
sFSRC 
RES 
sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
00C000 : f 60000,0 sERROR RES. 

: 2 ;BAD SIGN. 


40277, 
160000.0 


POSITIVE AND FSRC NEGATIVE. 
R :SET UP THE LOOP ON ERROR ADDRESS. 
042234 JS PC,@4D1VF SUB 


000000 : 40400,0 AC 
000000 : 140500,0 FSRC 
125253 : : 140052.125253 :RES 
: 1 sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
125253 : WO 40052,125253 ERROR RES. 
164002 : OR 2 [BAD SIGN. 


DIVF BOTH OPERANDS POSITIVE AND TRUNCATE MODE. 


104414 *  LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
004737 042234 JSR PC ,a4D1 VF SUB 
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8103 042146 060100 000001 1$: -WORD 60100,1 sAC 
8104 042152 040300 000000 2$: -WORD 40300,0 7F SRC 
8105 042156 069000 000000 3$: -WORD 60000,0 : 
8106 042162 000052 4$: 52 sFPS BEFORE EXECUTION. 
8107 21 000040 40 zFPS AFTER EXECUTION. 
8108 042166 0000 000001 5$: -WORD 60000,1 sERROR RES. 
44 042172 104002 6$: ERROR 2 ; TRUNCATION ERROR 
8111 :DIVF WITH POSITIVE OPERANDS AND ROUND MODE. 
8112 042174 CCC13: 
8113 042174 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
8114 042176 004767 000032 JSR PC ,DIVF SUB 
8115 042202 060100 000001 1$: -WORD 60100,1 sAC 
8116 2206 040300 000000 2$: -WORD 40300,0 sF SRC 
8117 042212 060000 000001 3$: -WORD 60000,1 ZRES 
8118 042216 000005 4$: 5 FPS BEFORE EXECUTION. 
8119 042220 000000 0 zFPS AFTER EXECUTION. 
8120 042222 060000 000000 5$: -WORD 60000,0 sERROR RES. 
gis} 042226 104002 6$: ERROR 2 ROUND ERROR. 
BIS? 042230 000137 042460 JMP @4CCCDONE :GO TO NEXT TEST. 
8125 : THIS SUBROUTINE, DIVFSUB, IS CALLED TO SET UP, EXECUTE 
a1S3 sAND CHECK THE RESULT OF A DIVF INSTRUCTION. IT IS CALLED THUS: 
8128 ; SR PC ,@ADIVF SUB 
8129 : ACARG: .WORD X,X :AC_OPERAND 
8130 : FSRCARG:.WORD X,X :FSRC OPERAND 
8131 ; RES: «WORD X,X po aah RESULT 
8132 ; FPSB: .WORD  X FPS BEFORE EXECUTION 
8133 : FPSA: .WORD xX -3FPS AFTER EXECUTION 
8134 : ERRES: .WORD X,X [ERROR RESULT 
8135 ; RR: ERROR X RESULT ERROR 
Ries : CONT: RETURN ADDRESS 
£138 34 OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
8139 FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, DIVF wa EXECUTED. 
8140 TAF TER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
8141 sEXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
8142 :1S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
8143 INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
8144 :1S_ COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
8145 ;THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 
8146 ;THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
8147 ;THEN THE FAILURE IS REPORTED IN DIVFSUB AND CONTROL IS PASSED TO 
8148 :CONT. IF NO ERRORS ARE DETECTED THEN DIVFSUB RETURNS CONTROL 
ae soles 
8151 042234 012601 DIVF SUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
8152 22 012700 000200 MOV #200,R0 :SET FD MODE. 
8153 042242 170100 LDFPS RO 
8154 042244 010100 MOV R1,RO ;LCAD THE AC OPERAND. 
8155 042246 172410 LDD (RO) ,ACO 
8156 042250 016100 000014 V 14(R1) ,RO ;LOAD THE FPS 
8157 042254 170100 LDFPS RO 
8158 042256 012737 042272 001236 V 41%, aASTMP2 


SEQ 0148 
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010100 MOV R1,RO0 
062700 000004 ADD #4 ,RO sESTABLISH A POINTER TO FSRC. 


174410 : DIVF (RO) ,ACO : TEST INSTRUCTION. 
STFPS R4 GET THE FPS. 
000200 MOV oe SET FD MODE 
012700 042450 ADIVFT RO GET THE RESULT OF THE DIVF. 
174010 ACO, (RO) 


010102 R2 SAVE THE DATA IN CASE OF ERROR. 
Resa -@ASTMPS 


R2, Sa STMPS 

#4 ,R2 

R2,a4$TMP5 
001246 #DIVET ,a#STMP6 


R4, aASTMP7 
001252 16(R1) ,a#$TMP10 


000010 a teal 1S THE RESULT CORRECT? 
000002 000012 al pet 


IF INCORRECT BRANCH. 


000016 16(R1) ,R4 1S FPS CORRECT? 
15$ IF INCORRECT BRANCH 
000026 26(R1) IF NO ERRORS OCCURRED RETURN. 


000020 $ (RO) ,20(R1) DOES THE INCORRECT RESULT 
11$ MATCH THE ANTICIPATED INCORRECT RESULT. 
000002 000022 + aia 


BRANCH IF NO. 


010102 ' R1,R2 :1T MATCHED SO RETURN TO THE ERROR 
REPORT AT THE CALLING ROUTINE. 
062702 000024 iT 


000112 


REPORT RESULT INCORRECT. 
104002 
000161 


REPORT FPS INCOFRECT. 
104002 
000774 


000000 000000 000000 DIVFT: 
000000 


CCCDONE : 
042460 104413 R :GO_ INITIALIZE THE FPS AND STACK; AND 
TSEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
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VIRTUAL CONSOLE SWITCH REGISTER (HAS 
i THE USER TYPED CONTROL G?). 


FRAT RARER RRR REE RRR E RE REECE REAR A KEE 


: FEST 45 DIVD TEST 


THIS 1S A_TEST OF THE DIVD INSTRUCTION. NOTE THAT A SUBROUTINE IS 
; sUSED TO SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE RESULTS. 


Ss <del diehdate lid datebshebnhdieiaibeiabh ets 


7$145: SCOPE 
,D1yD TEST WITH POSITIVE OPERANDS AND IN ROUND MODE. 
: ;SET UP THE LOOP ON ERROR ADDRESS. 
043154 PC, a#D1VDSUB 
000000 000000 18: . 34277,0,0,0 ZAC 
000000 000000 2%: : 40277,0,0,0 :FSRC 
000000 000000 3s: ; 34200,0.0.0 :RES 
4$: FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
177777 177777 ‘5$: : it Sh nt TERROR RES. 
6$: 2 
gD1VD WITH AC NEGATIVE AND FSRC POSITIVE IN TRUNCATE MODE. 
; :SET UP THE LOOP ON ERROR ADDRESS. 
043154 5 PC ,a#DIVDSUB 
000000 000000 18: , 134277,0,0.0 AC 
000000 000C00 28: , 40277.0.0.0 :F SRC 
000000 000000 3s: 134200,0.0,0  ;RES 
:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
177777 177777 5S: : at ah aA ot TERROR RESULT. 
2 
OPERANDS BOTH NEGATIVE AND IN TRUNCATE :AODE. 


SET UP THE LOOP ON ERROR ADDRESS. 


000332 S PC,DIVDSUB 
000000 000000 : ‘ 134300,0,0,1 3AC 


000000 000000 " ‘ 140300,0,0,0 3F SRC 
000000 000000 : ‘ 34200,0,0,0 ;RES 





CJKDCA=A KEFII-A, FP od oy spe 1 MACY11 7 Nail 


CJKDCA.P11 


043072 


O08=JUN-79 08:4 


000250 
000 


104002 


000000 


043154 
000000 


000000 
000000 


000000 


043154 
000000 


000000 
125252 
125252 


177777 


043154 
000000 


000000 
125252 
125253 


177777 


000000 


000000 
000000 
000000 


000000 


000000 
000000 


177777 


000000 
0v000C 


177777 


4$: 250 
240 
5¢: . WORD 
6$: ERROR 
sDIVD WITH AC 
DDD4: 
LPERR 
JSR 
1$: , 
2$ . WORD 
3$ WORD 
4$ 207 
210 
5$ - WORD 
6$: ERROP 
AN TEST 
"  LPERR 
JSR 
1$ .- WORD 
2$ . WORD 
3$: . WORD 
. WORD 
4$ 7647 
7650 
5$ - WORD 
6$ ERROR 
DIVD TEST WITH 
LPERR 
JSR 
1$: .~ WORD 
23: . WORD 
3$: WORD 
. WORD 
4$: 7707 
7710 
5$: WORD 
6$: ERROR 


:DIVD TEST. 


1i=JUN=79 
VD TEST 


34200,0,0,1 
2 


POSITIVE AND FSRC 


PC aD I VDSUB 
34300,0,0,1 


140300.0,0,0 
134200,0,0,1 


134200,0,0,0 
2 


PC,a4D1 VDSUB 
100400,0,0,0 


500,0.0.0 
140052,125252 
125252, 125252 
-1,-1,-1,-1 

2 


AC POSITIVE AND 


PC, a4D1VDSUB 
400.0,0,0 


100500,0, 


0 
140052,1 
125252,1 


mn 
vi“ © 
Mon  -» 
Vin © 
LNNO 


-1,-1,-1,-1 
2 


I 12 
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sFPS BEFORE EXECUTION. 
sFPS F hes. EXECUTION. 
* ERROR RES 
; TRUNCATION ERROR. 
NEGATIVE IN ROUND MODE. 
;SET UP THE LOOP ON ERROR ADDRESS. 
AC 
SF SRC 
RES 
et BEFORE EXECUTION. 
S AFTER Sa en 
ERROR RES 


ROUND ERROR. 


;SET UP THE LOOP ON ERROR ADDRESS. 
AC 
sFSRC 


FPS BEFORE EXECUTION. 
FPS AFTER EMECUTION. 
ERROR RES. 


FSRC NEGATIVE IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 
2AC 

zFSRC 

sRES 

FPS BEFORE EXECUTION. 


:FPS AFTER EXECUTION. 
ERROR RES. 


SEQ 0151 
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CJKDCA.P11 08=JUN-79 08:40 DIVD TEST SEQ 0152 
8327 043074 DDD?: 
8328 043074 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
8329 043076 004737 043154 JSR PC ,a4DI VDSUB 
8330 043102 170360 170360 1$: -WORD 170360,170360 ;AC 
8331 043106 170360 1703 “WORD  170360.170360 
8332 043112 170360 170360 2$ -WORD  170360.170360  ;FSRC 
8333 043114 170360 170360 “WORD  170360.170360 
8334 043122 040200 000000 000000 38: WORD 200,0,0,0 RES 
8335 043130 000000 
83 043132 007717 4$: 7717 sFPS BEFORE EXECUTION. 
8337 043134 007700 7700 [FPS AFTER EXECUTION. 
83 043136 177777 177777 #177777 S$: .~ WORD -1,-1,-1,-1 sERROR RES. 
8339 043144 177777 
8340 043146 104002 6$ ERROR 2 
att 043150 000137 043414 JMP @ADDDDONE 3GO TO NEXT TCST. 
8344 
8345 :THIS SUBROUTINE, DIVDSUB, IS CALLED TO SET UP, EXECUTE 
aeeo ;AND CHECK THE RESULT OF A DIVD INSTRUCTION. IT IS CALLED THUS: 
8348 3 JSR PC ,aADIVDSUB 
8549 : ACARG: .WORD X,X,X,&X ;AC OPERAND 
8350 Z FSRCARG: .WORD X,X,X,X sFSRC OPERAND 
8351 My RES: . WORD X,X,X,X sEXPECTED RESULT 
8352 : FPSB: - WORD x sFPS BEFORE EXECUTION 
8353 s FPSA: - WORD x sFPS AFTER EXECUTION 
8354 ERRES .-WORD X,X,X_X ZERROR RESULT 
8355 N ERR: ERROR x sRESULT ERROR 
ore8 : CONT: ;RETURN ADDRESS 
8358 + THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
8359 ;FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, DIVD IS EXECUTED. 
8260 ZAFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
8361 ;EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
8362 31S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
8363 ZN CORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
8364 S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
8365 * THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 
8366 ; THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
8367 ; THEN THE FAILURE IS REPORTED IN DIVDSUB AND CONTROL IS PASSED TO 
8368 CONT. IF NO ERRORS ARE DETECTED THEN DIVDSUB RETURNS CONTROL 
te 3TO CONT. 
8371 043154 012601 DIVDSUB: MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS. 
8372 043156 012700 000200 MOV #200,R0 :SET FD MODE. 
8375 043162 170100 LDFPS RO 
8375 043164 010100 MOV R1,RO :SET UP THE ACO OPERAND. 
8376 043166 172410 LDD (RO) ,ACO 
8377 043170 016100 000030 MOV 30(R1),RO sLOAD THE FPS. 
8378 043174 170100 LDFPS RO 
8380 043176 012737 043272 001236 MOV #1$,aASTMP2 
8381 043204 010100 MOV R1,RO ZESTABLISH A POINTER TO FSRC. 
8382 043206 062700 000010 ADD #10,R0 


CJKDCA=A hi FP DIAG B.e0 1 MACY11 st vy St 


CJKDCA.P11 O08-JUN-79 08:4 
8383 
8384 043212 174410 1$: 
8385 
8386 043214 170204 
8387 043216 012700 000200 
tof 043222 170100 
8390 043224 012700 043404 
8391 043230 174010 
8392 
8393 043232 010102 
8394 043234 010237 001240 
8395 043240 2702 000010 
8396 043244 010237 001242 
8397 043250 062702 000010 
8398 043254 010237 001244 
8399 32 012737 043404 001246 
8400 32 010437 001250 
ord 043272 016137 000032, 001252 
8403 043300 010102 
8404 043302 2702 000020 
8405 3306 012703 043404 
8406 043312 012705 000004 
8407 043316 022223 2$: 
8408 043320 001006 
44 043322 077503 
8411 043324 026104 000032 
8412 043330 001023 
aiz 043332 000161 000046 
8415 043336 010102 10$: 
8416 043340 062702 000034 
8417 043344 012703 043404 
8418 043350 012705 000004 
8419 043354 022223 11$: 
8420 043356 100 
8421 3360 077503 
8422 043362 010102 
Bes? 3364 062702 000044 
8425 043370 000112 
8426 
8427 043372 i2$: 
8428 043372 104002 13$: 
444 043374 000161 000046 14$: 
8431 3400 15$: 
8432 043400 104002 16$: 
Bae 043402 000774 
8435 043404 000000 000000 000000 DIvpDrT: 
aces 043412 000000 
8438 043414 DDDDONE : 


11-JUN-79 

DIVD TEST 

DIVD (RO) ,ACO 
STFPS RG 

MOV #200,RC 
LDFPS RO 
MOV #DIVDT,RO 
STD ACO, (RO) 
MOV R1,R2 
MOV R2,a4$TMP3 
ADD #10,R2 
MOV R2. dASTMPS 
ADD #10,R2 
MOV R2, aa$TMPS 
MOV ADIVDT,a&#STMP6 
MOV R4, ar$TMP7 
MOV 32(R1), a4$ITMP10 
MOV R1,R2 

ADD #20,R2 

MOV aDIVDT, R3 
MOV RS 

CMP tad)2 «R36 
BNE 10$ 

SOB R5,2$ 

CMP 32(R1) RS 
BNE 15$ 

JMP 46(R1) 
MOV R1,R2 

ADD #34,R2 
MOV #IVDT, R3 
MOV R5 

CMP ‘ados. (R3)¢ 
BNE 12$ 

SOB R5,11$ 
MOV R1,R 

ADD #44 ,R2 

JMP (R2) 

ERROR 2 

JMP 46(R1) 
ERROR 2 

R 14$ 

«WORD 0,0,0,0 


K 12 
11:50 PAGE 153 


sEXECUTE THE TEST INSTRUCTICN. 
;GET THE FPS. 

;SET FD MODE. 

3GET THE RESULT. 


SAVE DATA IN CASE OF ERROR. 


7 CHECK THE RESULT. 


BRANCH IF RESULT INCORRECT. 


71S FPS CORRECT? 
;BRANCH IF INCORRECT. 
RETURN. 


zWAS INCORRECT RESULT ANTICIPATED? 


BRANCH IF NO. 

IF THE INCORRECT RESULT WAS 
ANTICIPATED RETURN TO THE 
ERROR REPORT IN THE CALLING 
ROUTINE. 


REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


SEQ 0153 


L 12 
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DCA.P11 08-JUN-79 08:40 DIVD TEST SEQ 0154 

043414 104413 RSE TUP :30 INITIALIZE THE FPS AND STACK; AND 

SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


SL AAA RARER EERE ERA EERRERERARRRHREREREERAERREREERERERR EERE 


:*TEST 46 MULF TEST 


< ATHIS IS A TEST OF THE MULF INSTRUCTION. IT MAKES USE OF A SUBROUTINE 
'*TO SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 
 *RESULT $. 
ETIITITITITITITILITTT ITIL LI LETT TTT TTT TTTTTTi Tiere eTeree 


18146: SCOPE 
sMULF WITH (FSRC=AC=0) 
EEE1: 


SET UP THE LOOP ON ERROR ADDRESS. 
044200 


iF SRC 


sRES 
[FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


C, @4MULF SUB 


P 
0 
0 
0 


177777 : . -1,-1 
: 2 


c 
;MULF WITH (FSRC=0). 
EEE2: 
;SET UP THE LOOP ON ERROR ADDRESS. 


044200 PC , @4MUL F SUB 
034435 : . 71625 , 34435 


000000 : «WORD 0,0 
000000 2 . 


177777 


044200 
000000 
153443 
000000 


-1,-1 
2 


PC, a4MULF SUB 
071625, 153443 


ZF SRC 
FPS BEFORE EXECUTION. 


sFPS gid EXECUTION. 
TERROR RES 
SET UP THE LOOP ON ERROR ADDRESS. 


sal 
sFSRC 
:R 


VERVANALSS 


;RES 

:FPS BEFORE EXECUTION, 
FPS AFTER EXECUTION. 
177777 : . WORD ett ERROR RES. 


Agatddtt- 


Hy 9 WITH AC POSITIVE AND FSRC POSITIVE IN ROUND MODE. 


® 
iv] 

n 
a 
& 
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CJKDCA.P11 08-JUN-79 08: 
8495 043544 104414 LPERR 
8496 043546 004737 044200 JSR 
8497 043552 040200 000000 1$: . WORD 
8498 043556 040177 177777 2$: . WORD 
8499 043562 040177 177777 3$: . WORD 
85 043566 000017 4$: 17 
8501 043570 000000 0 
8502 043572 140177 177777 5$: WORD 
Benz 043576 104002 6$: ERROR 
8505 s;MULF WITH AC 
85 043600 FEES: 
8507 043600 104414 LPERR 
8508 043602 004767 000372 JSR 
8509 043606 040177 177777 1$: . WORD 
8510 043612 040200 000000 2$: . WORD 
8511 043616 040177 177777 3$: . WORD 
8512 043622 000040 4$: 40 
8513 043624 000040 40 
8514 043626 037777 177777 5$: . WORD 
8515 043632 104002 , 6$: ERROR 
8516 
8517 
8518 MULF WITH BOTH 
8519 043634 E6: 
8520 043634 104414 LPERR 
8521 043636 004737 044200 JSR 
8522 043642 040100 000000 1$ . WORD 
8523 043646 040100 000000 2$ . WORD 
8524 043652 040020 0000 3$ . WORD 
8525 043656 000012 4$ 12 
8526 043660 000000 0 
8527 043662 2040 000000 5$: WORD 
8528 043666 104002 6$: ERROR 
8529 
8530 
8531 MULF WITH BOTH 
85 043670 : 
8533 043670 104414 LPERR 
8534 043672 004737 044200 JSR 
8535 043676 017500 000000 1$: - WORD 
8536 043702 023652 125252 2$: - WORD 
8537 043706 003177 177777 3$: . WORD 
8538 043712 007417 4$: 7417 
8539 043714 007400 7400 
8540 043716 177777 177777 5$: . WORD 
S205 043722 104002 6$: ERROR 
8543 sMULF WITH AC 
8544 043724 EEE8: 
8545 043724 104414 LPEPR 
8546 043726 004737 044200 JSR 
8547 043732 040342 000000 1$: . WORD 
8548 043736 176542 000000 2$: - WORD 
8549 043742 176707 102000 3$: . WORD 
8550 043746 000007 4$: 7 


M 12 
1i=JUN-79 17:50 PAGE 155 
MULF TEST 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC, @4MULF SUB 
40200,0 ZAC 
40177.-1 *FSRC 
40177.-1 SRES 
:FPS BEFORE EXECUTION. 
[FPS AFTER EXECUTION. 
440177,-1 TERROR RES. 


POSITIVE AND FSRC POSITIVE IN TRUNCATE MODE. 


SET UP THE LOOP ON ERROR ADDRESS. 
PC ,MULF SUB 
40177,-1 zAC 
40200.0 zFSRC 


40177,-1 : 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
37777,-1 ZERROR RES. 
2 ‘iua 252 TO 044 INTO 444 (BUT Y62) 
- NORMALIZATION FAILURE. 


OPERANDS POSITIVE NORMALIZE TEST. 
SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@4MULF SUB 
40100.0 sAC 
40100,0 zFSRC 
40020,0 : 


zRES 

:FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 

42040,0 ERROR RES. 

2 2ST 252 TO 444 INTO 042 (BUT Y62) 
MUL. NORMALIZATION FAILURE. 


OPERANDS POSITIVE IN ROUND MODE. 


;SET UP THE LOOP ON ERROR ADDRESS. 
S @4MUL F SUB ae 
23652.125252 :FSRC 
3177,- RES 

sFPS BEFORE EXECUTION. 


1-1 FPS AFTER EXECUTION. 
2 e 


POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 


SET UP THE LOOP ON ERROR ADDRESS. 
PC ,Q4MULF SUB 


40342,0 ZAC 
176542,0 *FSRC 
176707. 102000 


RES 
zFPS BEFORE EXECUTION, 


SEQ 0155 


N 12 
CJKDCA-A_KEF11-A FP DIAG PART 1 MACY11 7 Neca 1i=JUN=79 11:50 PAGE 156 


CJKDCA.P11 08=JUN-79 08:40 146 MULF TEST SEQ 0156 
8551 043750 000010 10 :FPS AFTER EXECUTION. 

8552 043752 076507 102000 7$: .WORD 76507,102000  :ERROR RES. 

8953 043756 104002 6$: ERROR 2 [BAD SIGN. 

8555 sMULF WITH AC NEGATIVE AND FSRC POSITIVE IN ROUND MODE. 

8556 043760 FEES: 

8557 043760 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
8558 043762 004737 044200 JSR PC QML F SUB 

8559 043766 140200 000000 1$: . WORD 1402 200, AC 

560 043772 007417 007417 2$: “WORD 7417,7 ott? *FSRC 

8561 043776 107417 007417 3$: “WORD 1O7649 7417 RES 

8562 044002 4$: 0 FPS BEFORE EXECUTION. 

8563 044004 10 10 [FPS AFTER EXECUTION. 

8564 044006 007417 007417 S$: “WORD 7417,7417 TERROR RES. 

8565 044012 104002 6$: ERROR 2 {BAD SIGN. 

8567 ;MULF WITH BOTH OPERANDS NEGATIVE IN ROUND MODE. 

8568 044014 FEE10: 

8569 044014 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
8570 044016 004737 044200 JSR PC, a4MULF SUB 

8571 044022 144600 000000 1$: “WORD  144600,0 AC 

8572 044026 154000 000000 2$: “WORD  154000.0 ZF SRC ° 
8573 044032 060400 000000 3$: “WORD 60400,0 “RES 

8574 044036 000017 4$: i7 [FPS BEFORE EXECUTION. 

8575 044040 000000 0 ‘FPS AFTER EXECUTION. 

8576 044042 160400 000000 5$: “WORD  160400,0 TERROR RES. 

8577 044046 104002 6s: ERROR 2 ‘BAD SIGN. 

8579 :MULF BOTH OPERANDS NEGATIVE IN ROUND MODE. 

8580 044050 FEE11: 

8581 044050 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
8582 044052 004737 044200 JSR PC, a4MULF SUB 

8583 044056 140300 000000 1$: “WORD 140300, 0 AC 

8584 044062 160000 000001 2$: “WORD  160000.1 =F SRC 

8585 044066 060100 000002 3$: “wORD  60100,2 RES 

8586 044072 000010 4$: i0 [FPS BEFORE EXECUTION. 

8587 044074 000000 0 [FPS AFTER EXECUTION. 

8588 044076 060100 000001 5$: “WORD 60100,1 ‘ERROR RES. 

8989 044102 104002 6s: ERROR 2 SROUND FAILURE. 

8591 :MULF WITH AC POSITIVE AND FSRC NEGATIVE IN TRUNCATE MODE. 

8592 044104 EEEI2: 

8593 044104 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
8594 044106 004737 044200 JSR PC, a4MULF SUB 

8595 044112 060000 000001 1$: -WORD  60000,1 ZAC 

8596 044116 140300 000000 2$: “WORD 140300, 0 FSRC 

8597 044122 160100 000001 3$: “WORD 160100.1 RES 

8598 044126 007547 4$: 7547 “FPS BEFORE EXECUTION. 

8599 044130 007550 7550 [FPS AFTER EXECUTION. 

8600 044132 160100 000001 5$: .WORD  160100,1 TERROR RES. 

8601 044136 104002 é$: ERROR 2 * TRUNCATION ERROR. 

8603 sMULF WITH AC POSITIVE AND FSRC POSITIVE IN RUUND MODE. 

8604 044140 FEE13: ‘ 

8605 044140 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

044142 004737 044200 JSR PC, a#MULF SUB 
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79 08:40 MULF TEST 


CJKDCA.P11 08-JUN- 
8607 044146 040277 
8608 044152 060000 
8609 044156 060077 
8610 044162 000014 
8611 41 
8612 044166 060077 
pel? 044172 104002 
8615 044174 000167 
8616 
8617 
8618 
8619 
8620 
8621 
8622 
8623 
8624 
8625 
8626 
8627 
8628 
8629 
8630 
8631 
8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8640 
8641 
8642 
8643 044200 012601 
8644 044202 012700 
8645 4206 170100 
8646 044210 0101 
8647 044212 172410 
8648 044214 0161 
8649 044220 170100 
8650 044222 012737 
8651 044230 010100 
8652 044232 700 
8653 
8654 044236 171010 
8655 
8656 044240 170204 
8657 044242 012700 
8658 044246 170100 
8659 
8660 044250 012700 
8661 044254 174010 


000000 
000001 
000001 
000002 


000224 


000200 


000014 
044236 
000004 


060200 


044414 


001236 


1$: «WORD 40277,0 2AC 

2$: -WORD 60000,1 sF SRC 

3$: -WORD 60077,1 7RES 

4$: 14 ;FPS BEFORE EXECUTION. 
0 sFPS AFTER EXECUTION. 

5$: «WORD 60077,2 ERROR RES. 

6$: ERROR 2 sROUND FAILURE. CONSTANT BAD. 
JMP EEEDONE 7GO TO THE NEXT TEST. 


: THIS SUBROUTINE, MULFSUB, IS CALLED TO SET UP, EXECUTE 
AND CHECK THE RESULT OF A MULF INSTRUCTION. IT 1S CALLED THUS: 


; JSR PC ,@4MULF SUB 

; ACARG: .WORD X,X :AC_OPERAND 

Z FSRCARG:.WORD X,X zFSRC_ OPERAND 

: S: «WORD X,X EXPECTED RESULT 

é FPSB: .WORD X FPS BEFORE EXECUTION 
; FPSA: .WORD X FPS AFTER EXECUTION 
; ERRES: .WORD X,X ERROR RESULT 

; ERR: ERROR X sRESULT ERROR 

; CONT: ;RETURN ADDRESS 


: THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
:FPSB_ IS LOADED INTO THE FPS. THE INSTRUCTION, MULF wa EXECUTED. 
ZAFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 

EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 

HS CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
; INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
:1S_ COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
+ THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TG 

:THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
;THEN THE FAILURE IS REPORTED IN MULFSUB AND CONTROL IS PASSED TO 
> CONT. 4 NO ERRORS ARE DETECTED THEN MULFSUB RETURNS CONTROL 


MULF SUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
MOV #200,RO :SET FD MODE. 
LDFPS RO 
V 1,R0 ZLOAD THE AC OPERAND. 
LDD (RO) ,ACO 
V 14(R1),RO :LOAD THE FPS 
LDFPS RO 
MOV #1$,a4STMP2 
MOV R1,RO 
ADD #4°RO ZESTABLISH A POINTER TO FSRC. 
1$: MULF (RO) ,ACO :TEST INSTRUCTION. 
STFPS R4 :GET THE FPS. 
MOV #200,RO ‘SET FD MODE 
LDFPS RO 
MOV #MULF TRO :GET THE RESULT OF THE MULF. 


STD ACO, (RO) 


SEQ 0157 
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010102 R1,R2 SAVE THE DATA IN CASE OF ERROR. 
0 R2,a4$TMP3 


001246 
R4, dASTMP7 
000016 001252 16(R1) ,a#$TMP10 


000010 a 21S THE RESULT CORRECT? 
000002 000012 Oe  eaanhen 


:1F INCORRECT BRANCH. 


000016 16(R1) ,R4 21S FPS CORRECT? 
15$ :1F INCORRECT BRANCH 
000026 26(R1) IF NO ERRORS OCCURRED RETURN. 


000020 : (RO) ,20(R1) DOES THE INCORRECT RESULT 
11$ MATCH THE ANTICIPATED INCORRECT RESULT. 
000002 000022 +? lama 


BRANCH IF NO. 


010102 R1,R2 IT MATCHED SO RETURN TO THE ERROR 
sREPORT AT THE CALLING ROUTINE. 
062702 000024 “of 


000112 


REPORT RESULT INCORRECT. 
104002 $ 2 
000161 000026 3 MP 26(R1) 


: REPORT FPS INCORRECT. 
194002 3 2 
000774 BR 13$ 


000000 000000 000000 : 0,0,0.0 
000000 


EEEDONE : 
104413 RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH oe (HAS 
THE USER TYPED CONTROL G?) 


FERRE REE REE EEE EKER EKER EKER 


:STEST 47 MULD TEST 


THIS IS A_TEST OF THE MULD INSTRUCTION. NOTE THAT A SUBROUTINE IS 
S*USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 
:*CHECK THE RESULTS. 
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FERRER ERR ERRERKEERREEEEEEREEREEEREEKKEEEERERRER ERE 


18147: SCOPE 


istt, TEST WITH AC POSITIVE AND FSRC POSITIVE. 


;SET UP THE LOOP ON ERROR ADDRESS. 
044714 S C, @AMULDSUB 
000000 000000 1$: WOR 40200, 0,0,0 ZAC 
177777 177777 28: 23777,-1,-1,-1 ;FSRC 
177777 177777 3$: 23777,-1,-1,-1 ;RES 

4$: 3FPS BEFORE EXECUTION. 

3FPS AFTER ECECUTION. 

177777 000000 5$: ‘ 23777,-1,0,0 ;ERROR RES. 


6$: 2 BAD CONSTANT USED IN ALGORITHM 
USED 24 INSTEAD OF 56. 


BOTH OPERANDS POSITIVE TRUNCATION TEST. 
;SET UP THE LOOP ON ERROR ADDRESS. 
000202 S PC ,MULDSUB 
000000 000000 1S: 65400.0,0,1 AC 
177777 177777 28: q 37577,-1,-1,-2 :FSRC 
177777 177777 38: 64777,-1,-1,-1 ;RES 
:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
000000 000000 5$: ; 65000,0,0,0 TERROR RES 
2 ; TRUNCATION ERROR. 
BOTH OPERANDS NEGATIVE IN ROUND MODE. 
:SET UP THE LOOP ON ERROR ADDRESS. 
044714 PC, a4#MULDSUB 
177777177777 : WORD 137577,-1,-1,-2 :AC 
000000 000000 2s: : 165400,0,0,1 ZF SRC 
000000 000000 3s: ; 65000,0.0,0 RES 
7717 iFPS BEFORE EXECUTION. 
7700 “FPS AFTER EXECUTION. 
177777 177777 5$: «WORD  64777,-1,-1,-1 ZERROR RES. 
ERROR 2 ;ROUND ERROR. 
TEST WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 


104414 " — LPERR SET UP THE LOOP ON ERROR ADDRESS. 
004737 044714 JSR PC ,@4MULDSUB 
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000000 1$: ‘ 17500,0,0,0 3AC 


123652,125252  ;FSRC 
. 125252,125252 
177777 : 103177,-1,-1,-1 ;RES 


:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
000000 : . 103200,0,0,0 zERROR RES. 


2 ROUND ERROR (BAD CONSTANT). 
000240 FFF DONE 


: THIS SUBROUTINE, MULDSUB, IS CALLED TO SET UP, EXECUTE 
sAND CHECK THE RESULT OF A MULD INSTRUCTION. IT IS CALLED THUS: 


z:AC_OPERAND 
:FSRC OPERAND 
yh ae U5 RESULT 
FPS BEFORE EXECUTION 
“FPS AFTER EXECUTION 
[ERROR RESULT 
:RESULT ERROR 
RETURN ADDRESS 


: THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
zFPSB IS LOADED INTO THE FPS. THE INSTRUCTION, MULD IS EXECUTED. 
sAFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 

sEXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 

:1S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 

; INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 

:1S_COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 

;THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS PASSED TO 
;THE ERROR CALL AT ERR. IF THE INCGRRECT RESULT DID NOT MATCH ERRES 
; THEN THE FAILURE IS REPORTED IN MULDSUB AND CONTROL IS PASSED TO 
4 I NO ERRORS ARE DETECTED THEN MULDSUB RETURNS CONTROL 


MUL DSUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
000200 MOV cea SET FD MODE. 


Be Se Se Be Be Be Be Be Be Be Be 


R1,RO SET UP THE ACO OPERAND. 
(RO) ,ACO 
000030 MO eon) Ae :LOAD THE FPS. 


044752 001236 #18 aASTHP2 
000010 #10,RO 


ESTABLISH A POINTER TO FSRC. 


(RO) ,ACO EXECUTE THE TEST INSTRUCTION. 
170204 R4 GET THE FPS. 
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CJKDCA.P11 


044756 
044762 


044764 


08=JUN- 


012700 
170100 


012700 
174010 


010102 


010437 
016137 
010102 

2702 


001006 
077503 
026104 


104413 


000200 


045144 


001240 
000010 


000020 
045144 
000004 


000032 


000046 


000034 
045144 
000004 


000044 


000046 


000000 


MOV #200,R0 
LDFPS RO 


AMULDT RO 
ACO, pe 


001246 
001252 


a4, 
(R2)+,(R3>+ 
10$ 

R5,2$ 
32(R1) ,R4 
15$ 

46(R1) 


4 R5 
(R2)+,(R3)+ 
12$ 


R5,11$ 
R1,R2 
#44 ,R2 


(R2) 


2 
46(R1) 


2 
14$ 


000000 MULDT: 0,0,0,0 


FFF DONE: 
R 


SET FD MODE. 


GET THE RESULT. 


SAVE DATA IN CASE OF ERROR. 


;CHECK THE RESULT. 


BRANCH IF RESULT INCORRECT. 


:IS FPS CORRECT? 
BRANCH IF INCORRECT. 
ETURN. 


zWAS INCORRECT RESULT ANTICIPATED? 


;BRANCH IF NO. 


IF THE INCORRECT RESULT WAS 
zANTICIPATED RETURN TO THE 
sERROR REPORT IN THE CALLING 
ROUTINE. 


REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


:GO PTI ee THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

: THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER ‘HAS 


SEG 0161 
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: THE USER TYPED CONTROL G?). 


FREER EEE ERR EEE EREREKEEEEEREEEEERREREREEEKEEEEEKERER EEE 


: FEST 50 UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST 


i eTHIS IS A TEST OF THE OVERFLOW AND UNDERFLOW CONDITIONS USING 
:*THE MULF hist cae te WITH TRAPS DISABLED. NOTE THAT A SUBROUTINE 
; DT UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND 
; * CHECK THE RESULTS. 


<<a pileineanneacbasietininceli 


78150: SCOPE 
UNDERFLOW, WITH EXPONENT OF RESULT = -129 
SET UP THE LOOP ON ERROR ADDRESS. 
045404 PC , a#OVUNF NT 
20200,0 ZAC 
2000-0 *FSRC 
177777 : ; -i,-1 TERROR RES 


[FPS BEFORE EXECUTION. 
ZEPS AFTER EXECUTION. 


7;FLAG 
3ST 331 TO 155 INTO 115 (BUT FIU) 


;UNDERFLOW, WITH EXPONENT OF RESULT = -193 
SET UP THE LOOP ON ERROR ADDRESS. 


045404 PC ,Q#OVUNFNT 
: 10200,0 ZAC 
10000,0 ZF SRC 
: ‘ 0, RES 
000000 : - WORD 10000,0 ZERROR RES. 
: sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
sFEC 
ZFLAG 
SETTING FIUV OR FIV CAUSES TRAP 
sWITH FIU CLEAR. 


000401 
104002 
1) hem EXPONENT GF RESULT = 128 
104414 " LPERR SET UP THE LOOP ON ERROR ADDRESS. 
004737 045404 JSR PC ,@#OVUNFNT 


060200 000000 : .WORD  60200,0 ZAC 
060000 000000 : “WORD  60000;0 SF SRC 
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000000 
000000 


§ 


.WORD 0,0 :RES 

“WORD 60000,0 TERROR RES. 

0 [FPS BEFORE EXECUTION. 
:EPS AFTER EXECUTION. 


ZFLAG 
3ST 333 TO 136 INTO 116 (BUT FIV). 


WWWNWWNWWNWWNWNG 
COO Nanas 


i gt yh gh | 
NOALNMOAN 


= 130 


SET UP THE LOOP ON ERROR ADDRESS. 
045404 


177777 


RRRRERER SPRLLPRLRR 


ES. 
TFPS BEFORE EXECUTION. 
HAS. AFTER EXECUTION. 


FLAG 
SETTING FIUV OR FIU WITH 
zFIV CLEAR CAUSES TRAP. 


2 
045400 000167 000410 : MP I 1 IDONE :GO TO NEXT TEST. 


THIS SUBROUTINE, OVUNFNT, IS USED TO SET UP THE OPERANDS, EXECUTE 
>THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
[OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
:TO IT IS MADE THUS: 


zAC_OPERAND 

zFSRC OPERAND 

sEXPECTED RESULT 

ERROR RESULT 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 
EXPECTED FEC 

29/1, OVER/UNDER FLOW FLAG 
TRAP ERROR. 


DATA, RESULT ERROR 
RETURN ADDRESS 


: THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

2 THE MULF INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS THEN THE 

RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
sCOMPARED WITH FPSA_IF THIS TOO IS CORRECT OVUNFNT RETURNS CONTROL 

:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNFNT 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
;MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 


Bete Be Se 
< CK OK OK OK OC OK OK OK 


Be Se Be Pe Fe Fe Be Be Be te 
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8999 sANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
9000 : THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNFNT 
9001 :WILL TRANSFER CONTROL TO THE ERROR CALL AT re OTHERWISE THE 
9002 sRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNFNT WILL 
9003 ;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
9004 :1F A TRAP OCCURS (IT SHOULD NOT) THEN OVUNFNT WILL READ THE FEC. 
9005 : SHOULD THE FEC MATCH THE ANTICIPATED FEC OVUNFNT WILL 
9006 STORE ALL_DATA AND TRANSFER CONTROL TO THE ERROR CALL AT ERR1. iF THE 
9007 SFEC IS NOT THE SAME AS THE ANTICIPATED FEC OVUNFNT WILL REPORT 
9008 >THE ERROR AND RETURK. TO CONT. NOTE THAT OVUNFNT USES THE FLAG 


9009 :TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
oy sUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 

9012 045404 012601 i _OVUNFNT: MOV (SP)+,R1 GET A POINTER TO THE ARGUMENTS. 
$013 045406 012700 000200 MOV #200,RO :SET FD MODE. 

9014 045412 170100 LDFPS RO 

9016 045414 010100 MOV R1,RO ;LOAD ACO, OPERAND. 

9017 045416 172410 LDD (RO) ,ACO 

9019 045420 010102 : MOV R1,R2 ;SAVE THE DATA PATTERNS IN CASE OF 
9020 045422 010237 001240 MOV R2. ahSTMP3 ERROR. 

9021 045426 062702 000004 ADD ‘ 

9022 045432 010237 001242 MOV R2. aASTMPS 

9023 045436 062702 000004 ADD #4-R2 

9024 045442 010237 001244 MOV R2.a4STMPS 

9025 045446 016137 000022 001252 MOV 22(R1) ,a#$TMP10 

9026 045454 012737 046004 001246 MOV #OVFNTT , a#STMPG 

9028 045462 016100 000020 MOV 20(R1) RO :LOAD THE FPS. 

9029 045466 170100 LDFPS RO 

9030 045470 012737 045512 001236 MOV #1$, aASTMP2 

9031 045476 012737 045676 000244 MOV #25$, a#F PVECT SET UP T THE FP TRAP VECTOR IN CASE 
9033 045504 010100 MOV R1,RO0 7 COMPUTE THE ADDRESS OF FSRC. 
9054 045506 062700 000004 ADD #4-RO 

9036 045512 171010 1$: MULF (RO) ,ACO s TEST INSTRUCTION. 

9038 045514 170204 2$: STFPS R4 sGET FPS. 

9039 045516 170305 STST RS “GET FEC. 

9040 045520 012700 000200 MOV #200,RO “SET FD MODE. 

9041 045524 170100 LDFPS RO 

9042 045526 012700 046004 MOV #OVFNTT,RO :GET THE RESULT. 

9043 045532 174010 STD ACO, (RO) 

9044 045534 010437 001250 MOV R4, AASTMP7 

9045 045540 010537 001254 MOV RS. a4$TMP11 

9047 045544 012700 046004 MOV #OVFNTT.RO :CHECK THE RESULT. 

9048 045550 010102 MOV R1,R2 

9049 045552 062702 900010 ADD #10,R2 

9050 045556 012703 000002 MOV #2,R3 

9051 045562 022022 3$: CMP (RO) +, (R2)+ 

9052 045564 001015 BNE 15$ :BRANCH IF INCORRECT. 


aie, 045566 077303 SOB R3,3$ 
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045570 026104 000022 CMP 22(R1) ,R4 WAS FPS CORRECT? 
045574 001002 BNE 10$ 7BRANCH IF FPS IS INCORRECT. 


045576 000161 000036 4$: JMP 36(R1) RETURN, TEST COMPLETED. 
REPORT INCORRECT FPS. 
045602 005761 000026 10$: TST 26(R1) WAS THE RESULT OVER OR UNDER FLOW? 
001002 BNE 12$ BRANCH IF UNDERF LOW. 
REPORT FPS BAD AFTER OVERFLOW. 
104002 : ERROR 
000777 BR 
: REPORT FPS BAD AFTER UNDERFLOW. 
104002 : ERROR 2 
000767 BR 4$ 


' INCORRECT. 
012700 046004 158: MOV #OVFNTT,RO SEE IF FAILURE IS ANTICIPATED 
R1,R2 AILURE. 


MO P Fs 
000014 #14,R2 
000002 #2,R3 
(RO) +, (R2)+ 
001007 17$ 
077303 R3,16$ 
010102 R1,R2 zERROR WAS ANTICIPATED SO RETURN 
062702 000034 #34 ,.R2 ;TO THE ERROR REPORT IN THE CALLING 


;BRANCH IF NOT ANTICIPATED. 


010237 001236 R2, a#$TMP2 ROUT INE 
000112 (R2) 


005761 000026 : 26(R1) s:RESULT WAS NOT ANTICIPATED 
:SO ERROR MUST BE REPORTED HERE. 
:FIRST SEE IF ARGUMENTS SHOULD 
sHAVE RESULTED IN Poo tie _ UNDER 
FLOW BY LOOKING AT THE F 

001002 BRANCH IF UNDERFLOW EXPECTED. 


REPORT RESULT INCORRECT, EXPECTING 
104002 ; ERROR ; OVERFLOW. 
000742 BR 


$: sREPORT RESULT INCORRECT, EXPECTING 
104002 3 ERROR ; UNDERF LOW. 
000740 BR 4$ 


011602 : MOV (SP) ,R2 "GET ne ag ts. OF TRAP. 

022702 045514 #2%,R2 [WAS THE TRAP DURING THE MULF INSTRUCTION? 
001402 26$ BRANCH IF YES. 

000137 062534 a4F PSPUR epee GO REPORT A SPURIOUS 


P TRAP, 
022626 : (SP)+, (SP)+ RESET THE STACK. 
001236 MO R2,aA$TMP2 aSANE DATA FOR ERROR REPORT. 
04 R4 :GET FPS. 
945722 170305 R5 :GET FEC. 
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000200 MOV en SET FD MODE. 
046004 MOV AMOVFNTT RO 2GET Ti#€ RESULT. 


0.1254 R5,aASTMP11 
000024 R5, ” wets WAS THE FEC ANTICIPATED? 
27$ BRANCH IF NOT ANTICIPATED. 


010102 R1,R2 ERROR WAS ANTICIPATED SO 

062702 000030 #30,R2 RETURN 10 THE ERROR REPORT OF THE 
CALLING ROUTINE. 

000112 (R2) 


005761 000026 c7$: 26(R1) : THE ERROR WAS NOT ANTICIPATED SO 
:1T MUST BE get HERE. FIRST SEE IF EXPECTED 
[OVERFLOW OR UNDER FLOW 

001003 29$ BRANCH IF EXPECTING UNDERFLOW 


NON 2 Ss SS es es 
—O OONOUS WW 


REPORT TRAPPED ON OVERFLOW WITH FIV=0 


104002 283: 2 
000161 000036 36(R1) 


298: REPORT TRAPPED ON UNDER FLOW WITH FIU=0 
104002 30$: 2 
000161 000036 JMP 36(R1) 


000000 000000 OCO000 OVFNTT: . 0,0,0.0 
000000 


I 1 IDONE : 
046014 104413 RS :GO_ INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH + eae (HAS 
THE USER TYPED CONTROL G?) 


DREHER EEE EEKEEREKKERKEKE 


: TEST 51 UNDER\OVER FLOW, USING MULD WITH TRAP DISABLED, TEST 


THIS 1S A TEST OF THE OVERFLOW AND UNDERFLOW CONDITIONS THAT CAN 
s*ARRISE USING THE MULD INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
s*USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 

: *CHECK THE RESULTS. 


SAREE RK EEE ERE RRR REE EEREREKEEERKEKKEERKKEKREE 


000004 18151: SCOPE 
1; Pte EXPONENT OF RESULT=-129 


104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
004737 046344 JSR PC ,Q@#OVUNDNT 

020200 000000 1$: .WORD  20200,0 

127272 000000 “WORD 127272,0 
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000000 000000 : . 20000,0,0,0 2F SRC 
000000 000000 : ‘ 0,0,0,0 sRES 
000000 ;ERROR RES. 
C00000 


:FPS BEFORE EXECUTION. 
eee AFTER EXECUTION. 


FLAG 
*ST 331 TO 155 INTO 115 (BUT FIU) 
:ST 115 (BUT FD) 


0,0 
127272,0 


2 
8$ 
2 


SUNDERFLOW, EXPONENT OF RESULT = -193 
| ;SET UP THE LOOP ON ERROR ADDRESS. 

046344 PC , @#OVUNDNT 
000000 : ; 10200,0 ZAC 
000000 ; 123456,0 
000009 000000 2%: ; 10000,6,0,0 ZF SRC 
000000 000000 38: ] 0.0.0.0 :RES 
000000 123456 4$: ; 0,0.123456,0  ; ERROR RES 


FPS BEFORE EXECUTION. 
45: AFTER EXECUTION. 


FLAG 
- [SETTING FIUV OR FIV BAD. 
2 :ST 115 (BUT FD) 


es EXPONENT OF RESULT = 128 


;SET UP THE LOOP ON ERROR ADDRESS. 
046344 PC ,@#OVUNDNT 
000000 : 60200,0 


> ZAC 
000600 R 65432,0 
000000 000000 : ‘ 60000,0,0.0C sFSRC 


000000 000000 : ‘ 0,0.0,0 iRES 
000000 065432 : ‘ 0,0,65432,0 sERROR RES. 


:FPS BEFORE EXECUTION. 
44: AFTER EXECUTION. 


FLAG 
*ST 333 TO 136 INTO 116 (BUT FIV) 
:ST 116 (BUT FD) 
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9223 

9224 

9225 ZOVERFLOW, EXPONENT OF RESULT = 130 

9226 046254 jJJ4: 

9227 046254 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

9228 046256 004737 046344 JSR PC , @#OVUNDNT 

9229 046262 060200 000000 1$: “WORD  60290,0 AC 

9230 046266 125252 000000 “WORD 125252,0 

9231 046272 060200 000000 000000 2%: “WORD  60200,0,0.0 :F SRC 

9232 046300 000000 

9233 046302 000000 000000 000000 3: .WORD 0,0,0.0 RES 

9234 046310 000000 

9235 046312 000000 000000 125252 4$: .WORD 0,0,125252,0  ; ERROR RES. 

9236 046320 000000 

9237 046322 006211 S$: 6211 :FPS BEFORE EXECUTION. 

9238 046324 006206 6206 “FPS AFTER EXECUTION. 

9239 046326 000010 6$: 10 FEC 

9240 046330 000000 0 “FLAG 

9241 046332 104002 7$: ERROR 2 SETTING FIUV OR FIV BAD. 

9242 046334 000401 BR 8$ 

9243 046336 104002 ERROR 2 :ST 116 (BUT FD) 

9244 046340 000137 046754 8$: JMP QJ JJDONE :GO TO NEXT TEST. 

9246 ;THIS SUBROUTINE, OVUNDNT, IS USED TO SET UP THE OPERANDS, EXECUTE 

9247 ; THE MULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 

9248 ZOPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 

9249 [TO IT IS MADE THUS: 

9250 : 

9251 Z ACARG: .WORD X,X,XX Fs 

9252 : F SRCARG: . WORD XXX LM - C OPERAND 

9253 2 RES: ~WORD X,X,XX sEXPECTED RESULT 

9254 : ERRES: .WORD X.X.X.X TERROR RESULT 

9255 : FPSB: <:WORD X [FPS BEFORE EXECUTION 

9256 : FPSA «WORD x sFPS AFTER EXECUTION 

9257 : FEC: “WORD X SEXPECTED FEC 

9258 : FLAG ~WORD x :0/-1, OVER/UNDER FLOW FLAG 

9259 : ERR1: ERROR X STRAP ERROR. 

92 : CONT 

9261 : ERR2: ERROR X :DATA, RESULT ERROR 

9262 ; CONT: SRETURN ADDRESS 

9264 :THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

9265 7THE MULD INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS THEN THE 

9266 ZRESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 

9267 7COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNDNT RETURNS CONTROL 

9268 :TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNDNT 

9269 :REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 

9270 ;MULD IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 

9271 SANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

9272 ZTHE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN T 

9273 SWILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 

9274 ZRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNDNT WILL 

9275 TREPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 

9276 :IF A TRAP OCCURS (IT SHOULD NOT) THEN OVUNDNT WILL READ THE FEC. 


9277 ;SHOULD THE FEC MATCH THE ANTICIPATED FEC OVUNDNT WILL 
9278 :STORE ALL DATA AND TRANSFER CONTROL TO THE ERROR CALL AT ERR1. IF THE 


CJKDCA=A_KEF11=A FP DIAG 
CJKDCA.P11 


08-JUN-79 


012601 
012700 
170100 
010100 
172410 
010102 


012737 
012737 


010100 
062700 


171010 


001015 
077303 
026104 
001002 
000161 


005761 
001002 


“08:4 


000200 


000042 


000056 


000046 


001252 
001246 


001236 
000244 
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UNDER\OVER FLOW, USING MULD WITH TRAP DISABLED, TEST 


sFEC IS NOT THE SAME AS THE iste tak 7 oe OVUNDNT WILL REPORT 
;THE ERROR AND RETURN TO CONT. NOTE THAT OVUNDNT USES THE FLAG 
[TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
SUNDERFLOW (FLAG==1) OR OVERFLOW (FLAG=0). 


OVUNDNT : MOV (SP)+,R1 GET A POINTER TJ THE ARGUMENTS. 
MOV #200,R0 SET FD MODE. 
LDFPS RO 
MOV R1,RO zLOAD ACO, OPERAND. 
LDD (RO? ,ACO 
MOV R1,R2 SAVE THE DATA PATTERNS IN CASE OF 
MOV Re a4$TMPS ;ERROR. 
ADD oR 
MOV Re, aASTMP4 
ADD #10,R 


MOV R2, aASTMPS 
MOV 42(R1) ,aa#STMP10 
MOV #OVDNTT , a#$TMP6 


V 40(R1),RO LOAD THE FPS. 

LDFPS RO 

V #1$,a4STMP2 

MOV #25$, QA4F PVECT + jf A, FP TRAP VECTOR IN CASE 

MOV R1,RO COMPUTE THE ADDRESS OF FSRC. 

ADD #10,R0 
1$: MULD (RO) ,ACO TEST INSTRUCTION. 
2$: STFPS R&4 :GET A yy 

STST R5 :GET FEC. 

MOV #200,R0 SET FD MODE. 

LDFPS RO 

MOV eg Al RO GET THE RESULT. 

STD Bre, 

MOV 4G. SWS TMP? 

MOV RS, a4$TMP11 

MOV #OVDNTT ,RO CHECK THE RESULT. 

MOV R1,R2 

ADD #20,R2 

MOV #4 ,R3 
3$: CMP (RO) +, (R2)+ 

BNE 15$ BRANCH IF INCORRECT. 

SOB R3,3$ 

CMP 42(R1) ,R4 WAS FPS CORRECT? 

BNE 10$ BRANCH IF FPS IS INCORRECT. 
4$: JMP 56(R1) RETURN, TEST COMPLETED. 
;REPORT PeCOMPEC! FPS, 
10$: TST 46(R1) WAS THE RESULT OVER OR UNDER FLOW? 

BNE 12$ * ;BRANCH IF UNDERFLOW. 


SEQ 0169 


sn 
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REPORT FPS BAD AFTER OVERFLOW. 
104002 : ERROR 2 
000771 BR 4$ 


12$: REPORT FPS BAD AFTER UNDERFLOW. 
104002 13$: ERROR 2 
006767 BR 4$ 


RESULT INCORRECT. 
012700 046744 15$: MOV #OVD SEE IF FAILURE IS ANTICIPATED 
R1,R2 FAILURE. 


000030 . 
000004 #123 
16$: ae 


001007 ;BRANCH IF NOT ANTICIPATED. 
077303 R3,16$ 


010102 R1,R2 sERROR WAS ANTICIPATED SO RETURN 
000054 #54 Re :TO THE ERROR REPORT IN THE CALLING 
001236 oP aati: ;ROUTINE. 


005761 000046 : 46(R1) sRESULT WAS NOT ANTICIPATED 
:SO_ ERROR MUST BE REPORTED HERE. 


[FLOW BY LOOKING AT THE FLAG. 
001002 BRANCH IF UNDERFLOW EXPECTED. 


REPORT RESULT INCORRECT, EXPECTING 
104002 : ERROR ; OVERFLOW. 
000742 BR 


19$: REPORT RESULT INCORRECT, EXPECTING 
104002 3 ERROR ; UNDERF LOW. 
600740 BR 4$ 


z1F AN FP TRAP OCCURS COME HERE. 
011602 25$: MOV (SP) ,R2 GET ADDRESS OF TRAP. 
046454 #2$,R2 [WAS THE TRAP DURING THE MULF INSTRUCTION? 
26$ :BRANCH IF YES. 
062534 aA4F PSPUR 7 GO REPORT A SPURIOUS 


(SP) +, (SP)+ SRESET THE STACK 
001236 Lanta +a ae FOR ERROR REPORT. 


R5 3GET FEC. 
000200 : SET FD MODE. 


046744 MOV GET THE RESULT. 
001254 R5,aA$TMP11 


000044 R5,44(R1) WAS THE FEC ANTICIPATED? 
27s BRANCH IF NOT ANTICIPATED. 
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046712 010102 MOV R1,R2 ERROR WAS ANTICIPATED SO 
046714 062702 000050 ADD #50,R2 [RETURN TC THE ERROR REPORT OF THE 


CALLING ROUTINE. 
046720 000112 JMP (R2) 


046722 005761 000026 : TST 26(R1) : THE ERROR WAS NOT ANTICIPATED SO 
:1T MUST BE REPORTED HERE. FIRST SEE IF EXPECTED 
[OVERFLOW OR UNDER FLOW. 
001003 BNE 29$ BRANCH IF EXPECTING UNDERFLOW 


REPORT TRAPPED ON OVERFLOW WITH FIV=0 
104902 288: ERROR 2 
000161 000056 JMP 56(R1) 


29$: REPORT TRAPPED ON UNDER FLOW WITH FIU=0 
104002 30$: ERROR 2 
000161 000056 JMP 56(R1) 


000000 000000 000000 OVDNTT: .wORD 0,0.0,0 
000000 


JJJDONE : 
104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


BRI III TTI TIO OTE TOIT TSOTSI TOOT IIT IIS IIIS SAI AAS AIA ASSIS AAS HHO 
TRTEST 52 UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 
* 

:*THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 

:*CONDITIONS THAT CAN OCCUR USING THE MULF INSTRUCTION. 

:*A_SUBROUTINE IS CALLED TO SET UP THE OPERANDS, 

;* EXECUTE THE MULF INSTRUCTION AND CHECK 

[*THE RESULTS. HERE THE PARTICULAR INTERRUPT, 

on OVERFLOW OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 
fs . 

:* 

DORI III UII IOI OOOO OTITIS TOS tote 


18152: SCOPE 
Ee Ue, EXPONENT OF RESULT = -129 
: :SET UP THE LOOP ON ERROR ADDRESS. 


047204 PC ,QAOVUNF T 

045676 : 20123,45676 AC 
000000 : 20 *FSRC 
045676 : 123,45676 RES 


177777 : =1,-1 ERROR RES. 
: zFPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
047012 ;FEC 
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177777 -1 7 FLAG 
104002 7$: ERROR 2 3ST 331 (BUT FIU) NO TRAP. 
000401 BR 8$ 
104002 8s ERROR 2 


— EXPONENT OF THE RESULT = -193 


104414 SET UP THE LOOP ON ERROR ADDRESS. 
004737 047204 SR PC ,@#OVUNF T 
127272 1$: . 10127,127272 
000000 : . 10200.0 
127272 : . 60127,127272 
177777 $: «WORD <-1,-1 RES. 
“FPS BEFORE EXECUTION. 
:EPS AFTER EXECUTION. 


ST 331 (BUT FIU) NO TRAP. 


;OVERFLOW, EXPONENT OF THE RESULT = 128 
KKK4: 


SET UP THE LOOP ON ERROR ADDRESS. 
047204 PC ,QFOVUNF T 
60252,125252 


60000, 
oe 000052,125252 
177777 : -WORD -1,-1 


sERROR RES. 
7FPS BEFORE EXECUTION. 
A AFTER EXECUTION. 


. 
e 


3FLAG 
3ST 333 (BUT FIV) NO TRAP 


= 130 
:SET UP THE LOOP ON ERROR ADDRESS. 
047204 S QAOVUNF T 


067654 : : LOSS 67654 AC 
000000 : ‘ 602000 =F SRC 
067654 : : 34567654 RES 
177777 : .WORD -=-1,-1 TERROR RES. 
$: :FPS BEFORE EXECUTION. 
:EPS AFTER EXECUTION. 


° 
e 


sFLAG 
bs :ST 133 (BUT FIV) NO TRAP 


2 
000412 : MP KKKDONE 
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7 THIS SUBROUTINE, OVUNFT, IS USED TO SET UP THE OPERANDS, EXECUTE 
>THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
on ae RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 


ACARG: .WORD 
FSRCARG: .WORD 
RES: 


2AC_OPERAND 

:FSRC OPERAND 

TEXPECTED RESULT 

ERROR RESULT 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 

ZEXPECTED FEC 

30/-1,0VER/UNDER FLOW FLAG 
RAP ERROR. 


DATA, RESULT ERROR 
RETURN ADDRESS 


zTHE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). a+ 

3 THE MULF INSTRUCTION IS EXECUTED. IF THE TRAP OCCURS THEN THE 

RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED WITH FPSA_IF THIS TOG IS CORRECT OVUNFT ge CONTROL 
:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUN 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE rec. Is TREATED 
: IN THE SAME WAY. IF THE RESULT OF THE 

:MULF_IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 

ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

;THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNFT 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 

RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNFT WILL 
;REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 

IF NO TRAP OCCURS CONTROL IS PASSED TO ERR1. 

:NOTE THAT OVUNFNT USES THE FLAG 

:TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
SUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 


012601 OVUNFT: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
Tiere 000200 MOV oer :SET FD MODE. 


010100 R1,RO0 ;LOAD ACO, OPERAND. 
72410 (RO) ,ACO 


2 
10 R1,R2 SAVE THE DATA PATTERNS IN CASE OF 
10 R2,a4$TMP3 7 ERROR, 


< KK OO 


Se Se Be Be Be Be Be Be Be Be Be Se Be Be 


R2. aASTMPS 
#4-R2 
R2. 


a4$TMP5S 
22 001252 22(R1), BWSTMP10 
047606 001246 HOVF TT ,aASTMPE 


000020 MOV 20(R1) ,RO LOAD THE FPS. 
047266 R 
047270 047312 001236 MO #1$,aASTMP2 
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047276 012737 047322 000244 #50$ ,a4F PVECT oe hn THE FP TRAP VECTOR IN CASE 


047304 010100 R1,RO [COMPUTE THE ADDRESS OF FSRC. 
047306 062700 000004 #4 ,RO 


171010 : (RO) ,ACO ;TEST INSTRUCTION. SHOULD CAUSE TRAP. 
170000 : 


000137 047546 a425$ FAILURE, NO TRAP. 


011602 : (SP) ,R2 ; TRAP TO HERE AND SEE IF THE PC OF THE 
920227 047314 +“ ; TRAP py Pig OF THE MULF INSTRUCTION. 


001402 BRANCH IF YE 
900137 062534 a4F PSPUR OTHERWISE REPORT SPURIOUS FP ERROR. 
022626 : CMP ide al i ® :" STACK 


RS CET F FEC. 
000200 MOV #200.R0 “SET FD MODE. 


047606 MO AOVFTT,RO :GET THE RESULT. 
ACO, (RO) 
001250 R4 ,QASTMP7 
010537 901254 R5,a4S$TMP11 


012700 047606 ap ae CHECK THE RESULT. 
000010 #10,R2 
000002 #2 ,R3 
(RO) +, (R2)+ 
15$ 
077303 R3,3$ 


026104 000022 22(R1) ,R4 zWAS FPS CORRECT? 
001014 10$ BRANCH IF FPS IS INCORRECT. 


026105 000024 24(R1) ,R5 71S FEC CORRECT? 
001002 5$ IF INCORRECT BRANCH. 
000161 000036 4$: 36(R1) RETURN, TEST COMPLETED. 


REPORT INCORRECT FEC. 
005761 000026 5$: TST 26(R1) WAS THE RESULT OVERFLOW OR UNDERFLOW? 
001002 BNE 7$ ;BRANCH IF UNDERFLOW. 


sREPORT BAD FEC ON EXPECTED OVERFLOW. 


;BRANCK IF INCORRECT. 


104002 6$: ERROR 
000771 BR 


REPORT BAD FEC ON EXPECTED UNDERFLOW. 


7$: 
104002 85: ERROR 2 
000767 BR 4 


REPORT INCORRECT FPS. 
047452 005761 000026 10$: TST 26(R1) WAS THE RESULT OVER OR UNDER FLOW? 
047456 001002 BNE 12$ BRANCH IF UNDERFLOW. 
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sREPORT FPS BAD AFTER OVERFLOW. 
047460 104002 118: ERROR 2 
000762 BR 4$ 


12$: REPORT FPS BAD AFTER UNDERFLOW. 
104002 138: ERROR 2 
000760 BR 4$ 


sRESULT INCORRECT. 
012700 047606 15$: MOV MOVFTT,RO SEE IF FAILURE IS ANTICIPATED 
010102 R1,R2 :FAILURE. 
062702 000014 #14 ,R2 
012703 000002 #2,R3 
022022 : (RO) +, (R2)+ 
001007 17$ 


BRANCH IF NOT ANTICIPATED. 
077303 R3,16$ 


010102 R1,R2 ERROR WAS ANTICIPATED SO RETURN 
062702 000034 #34 ,R2 :TO THE ERROR REPORT IN THE CALLING 
001236 we ;ROUTINE. 


005761 000026 : 26(R1) RESULT WAS NOT ANTICIPATED 


001002 BRANCH IF UNDERFLOW EXPECTED. 


REPORT RESULT INCORRECT, EXPECTING 
104002 18$: ERROR : OVERFLOW. 
000733 BR 4 


19$: sREPORT RESULT INCORRECT, EXPECTING 
104002 20$: ERROR ; UNDERF LOW. 
000731 BR 4$ 


:1F NO FP_TRAP OCCURS COME HERE. 
170204 25$: STFPS = R4 GET FPS. 
5 GET FEC. 

000200 MO _ SET FD MODE. 

047606 MO GET THE RESULT. 

001250 

001254 ~f ;a4STMP11 

ERROR WAS ANTICIPATED SO 


Re 
000030 #302 RETURN TO THE ERROR REPORT OF THE 
(R2) CALLING ROUTINE. 


000000 000000 OVFIT: . 0,0,0,0 


047616 KKKDONE : 
047616 104413 3GO INITIALIZE THE FPS AND STACK; AND 





CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 — 


CJKDCA.P11 


08-JUN=79 08:40 


000004 


050146 


2 
000000 
177777 


177777 
125252 


050146 


127272 
045454 
177777 


1i=JUN=79 


SRR RE KR EEKEKEEREKR K 


:STEST 53 UNDER\OVER FLOW, 


H 14 
11:50 PAGE 176 
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SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


RERREREKKKEEEEEEEKEKKEREKEEKERKEKEEE 


USING MULD WITH TRAPS ENABLED, TEST 


i STHIS IS A_TEST OF THE OVER FLOW AND we FLOW CONDITIONS USING THE 


:*MULD INSTRUCTION WITH TRAPS ENAB 


LED SUBROUTINE IS USED TO SET UP 


seTHe OPERANDS, EXECUTE THE MULD INSTRUCT ION AND CHECK THE RESULTS. 


SER KEEEERKEREEEKEERKKEKEKEREEKKKKK 


$153: SCOPE 


Os thao EXPONENT OF RESULT = 
LLL Ts 


S C,@4OVUNDT 
1$: é 50082, 125252 
P 125252, 125252 
000000 2$: ‘ 20300.0,0,0 
177777 3%: 177,-1,-1,-1 
4$: 
5$: 
6$: 


7$: 


177,-1 
125252, 125252 


8$: 


en EXPONENT OF THE RESULT = 


PC ,@4OVUNDT 
10327, 127272 
365 63.45454 
10000:0,0.0 


60127127272 
? 36363.4 
177777 4$: WORD -1.-1- - — 


000000 


REE EKEEKKEKEKKEEE 


=2 

SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

3 F SRC 

sRES 

ERROR RES. 


:FPS BEFORE EXECUTION. 
eet AFTER EXECUTION. 


FLAG 
‘ST 331 (BUT FIU) NO TRAP. 
:ST 155 (BUT FD) 


-193 

;SET UP THE LOOP ON ERROR ADDRESS. 
ZAC 

ZF SRC 

zRES 

ERROR RES. 


:FPS BEFORE EXECUTION, 
A AFTER EXECUTION. 


ZFLAG 
3ST 137 (BUT FIU) NO TRAP, 
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BR 8$ 
ERROR 2 
8$: 


ZOVERFLOW, EXPONENT OF THE RESULT = 128 
: SET UP THE LOOP ON ERROR ADDRESS. 

050146 
125252 
125252 
000000 000000 
177777 177777 38: ; 100177,-1,-1,-1 :RES 
ERROR RES. 


:FPS BEFORE EXECUTION. 
eee AFTER EXECUTION. 


177777 100177,=1 
125252 ; 125252, 125252 


FLAG 
ST 333 (BUT FIV) NO TRAP. 
ST 700 (BUT FD). 


70+ Mdmaaage EXPONENT OF THE RESULT = 130 
SET UP THE LOOP ON ERROR ADDRESS. 
050146 UNDT 


S PC, a¥#Ov 
067654 1$: ? 6034567654 AC 
045676 ’ 56765 .45676 
000000 000000 28: 60200.0,0,0 sFSRC 


067654 3$: . 345 67654 zRES 
045676 56765 ,45676 
177777 =177777 = 4$: . =1,-1,°1,°1 ERROR RES. 


5$: 2 FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
6$: a :FEC 


ZFLAG 
7$: 2 7ST 133 (BUT FIV) NO TRAP 
BR 8$ 


2 
050142 050560 8$: MP @4LLLDONE 


: THIS SUBROUTINE, OVUNDT, IS USED TO SET UP THE OPERANDS, EXECUTE 
THE MULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
sOPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
:TO IT IS MADE THUS: 


: ACARG: .WORD be ;AC_OPERAND 
F SRCARG: . WORD zFSRC OPERAND 
RES: R zEXPECTED RESULT 
ERRES: . od ERROR RESULT 
FPSB: . WORD zFPS BEFORE EXECUTION 
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050146 
050150 
050154 


050156 
050160 


050162 
0501 


050216 
050224 


050240 


050246 
050250 


050254 
050256 


050260 
050264 


012737 


010100 
062700 


171010 
170000 


000137 
011602 


000200 


001240 


050550 
000040 


050254 
050264 


000010 


050510 


001252 
001246 


001236 
00244 


8 
UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST 


FPS AFTER EXECUTION 
sEXPECTED FEC 
30/-1,0VER/UNDER FLOW FLAG 
; TRAP ERROR. 


DATA, RESULT ERROR 
RETURN ADDRESS 


;THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). es 

zTHE MULD INSTRUCTION IS EXECUTED. IF THE TRAP OCCURS THEN THE 
sRESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN hen FPS IS 
sCOMPARED WITH FPSA_ IF THIS TOO IS CORRECT OVUNDT RETURNS CONTR 

:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNDT 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE FEC IS TREATED 
IN THE SAME WAY. IF THE RESULT OF THE 

>MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

:THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNDT 
[WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
sRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNDT WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 

:1F NO TRAP OCCURS CONTROL 7 — TO ERR1. 

:NOTE THAT OVUNDNT USES THE F 

:TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
SUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 


OVUNDT: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
MOV ~ aaa :SET FD MODE. 


;LOAD ACO, OPERAND. 


R1,RO 
(RO) ,ACO 


R1,R2 SAVE THE DATA PATTERNS IN CASE OF 
R2,a4STMP3 ERROR. 

#10,R2 

R2,a4#$TMP4 

#10,R2 

R2,a4STMPS 

42(R1) ,aA#STMP10 

#OVDTT ,a#STMP6 

— ;LOAD THE FPS. 

41$,a4$TMP2 

#50$.,a4F PVECT oF clan FP TRAP VECTOR IN CASE 
R1,RO COMPUTE THE ADDRESS OF FSRC. 
#10,R0 


(RO) ,ACO TEST INSTRUCTION. SHOULD CAUSE TRAP. 


ar25$ FAILURE, NO TRAP, 
(SP) ,R2 ; TRAP TO HERE AND SEE IF THE PC OF THE 


SEQ 0178 
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050266 
050272 
050274 


050326 
050332 
0503 


050354 


050356 
050362 


050364 
050370 
050372 


050376 
0504C2 


020227 


001027 
077303 
026104 
001014 
026105 
001002 
000161 


005761 
001002 


104002 
000771 


104002 
000767 


005761 
001002 


104002 
000762 


79 08: 


050256 
062534 


000200 
050550 


001250 
001254 


050550 


000020 
000004 


000042 


000044 
000056 


900046 


000046 


050550 


4$: 
;REPORT 
5$: 


6$: 


7$: 
8$: 


;REPORT 
10$: 
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INCORRECT FEC. 
TST 46(R1) 


BNE 
ERROR 
BR 


ERROR 
BR 


R2 ,#2$ TRAP WAS THAT OF THE MULF INSTRUCTION. 
51 [BRANCH IF YES. 

@a4F PSPUR OTHERWISE REPORT SPURIOUS FP ERROR. 
(SP)+, (SP) + RESET THE STACK 

R4 GET FPS. 


R5 iGET FEC. 
aes SET FD MODE. 


#OVDTT ,RO GET THE RESULT. 


RS, * aYSTMP11 

#OVDTT,RO 3CHECK THE RESULT. 
R1,R2 
#20,R2 

#4 ,R3 
(RO)+, (R2)+ 
15$ 

R3,3$ 


42(R1) ,R4 :WAS FPS CORRECT? 
10$ BRANCH IF FPS IS INCORRECT. 


44(R1),R5 21S FEC CORRECT? 
5$ id INCORRECT BRANCH. 
56(R1) RETURN, TEST COMPLETED. 


BRANCH IF INCORRECT. 


WAS THE RESULT OVERFLOW OR UNDERFLOW? 
7$ :BRANCH IF UNDERFLOW. 


REPORT BAD FEC ON EXPECTED OVERFLOW. 


2 REPORT BAD FEC ON EXPECTED UNDERFLOW. 
4$ 


+ Seat | Ae 
TST 


BNE 


ERROR 
BR 


ERROR 
BR 


INCORRECT. 


MOV 
MOV 


46(R1 WAS THE RESULT OVER OR UNDER FLOW? 
12$ BRANCH IF UNDERFLOW. 


sREPORT FPS BAD AFTER OVERFLOW. 


REPORT FPS BAD AFTER UNDERFLOW. 


#OVDTT, RO ;SEE IF FAILURE IS ANTICIPATED 
R1,R2 sFAILURE. 


SEQ 0179 
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CJKDCA.P11 


050476 


050500 
050502 


050542 
050546 


050550 
050556 


050560 
050560 


08-JUN-"9 


062702 
012703 
022022 
001 


007 
077303 
010102 


062702 
010237 
000112 


005761 
001002 
104002 
000733 
104002 
000731 


170204 


000030 
000004 


000054 
001236 


000046 


000200 
050550 


001250 
001254 


000050 


000000 000000 
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ADD #30,R2 
MOV #43 
16$: CMP (RO) +, (R2)+ 
BNE 7$ ;BRANCH IF NOT ANTICIPATED. 
SOB R3,16$ 
MOV R1,R2 ;ERROR WAS ANTICIPATED SO RETURN 
ADD #54,R2 :TO THE ERROR REPORT IN THE CALLING 
MOV R2,a4$TMP2 ROUTINE. 
JMP (R2) 
17$: TST 46(R1) ;RESULT WAS NOT ANTICIPATED 
:SO ERROR MUST BE REPORTED HERE. 
:FIRST SEE IF ARGUMENTS SHOULD 
ZHAVE RESULTED IN OVERFLOW OR UNDER 
[FLOW BY LOOKING AT THE FLAG. 
BNE 19$ [BRANCH IF UNDERFLOW EXPECTED. 
REPORT RESULT INCORRECT, EXPECTING 
18$: ERROR 2 OVERFLOW. 
BR 4$ 
19$: ;REPORT RESULT INCORRECT, EXPECTING 
20$: ERROR 2 S UNDERF LOW. 
BR 4$ 
:1F NO FP TRAP OCCURS COME HERE. 
25$:  STFPS :GET FPS. 
STST SGET FEC. 
V #300.R0 *SET FD MODE. 
LDFPS RO 
MOV #HOVDTT,RO :GET THE RESULT. 
STD ACO, (RO) 
MOV R4, aASTMP7 
MOV R5.a4$TMP11 
MOV R1,R2 ZERROR WAS ANTICIPATED SO 
ADD #50,R2 [RETURN TO THE ERROR REPORT OF THE 
[CALLING ROUTINE. 
JMP (R2) 
OVDTT: .WORD 0,0,0,0 
LLLDONE : 
RSETUP 7GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOFTWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?) 
FR RIE KKK RRR IK KERR A RK 
SSTEST 54 MODF TEST 
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CJKCCA.P11 


050750 


08=JUN-79 08:4 


051650 
000 


000 
177777 


177777 © 


051650 
076545 
000000 


177777 


051650 
000000 
021234 
000000 


000000 
000000 
177777 


MODF TEST 


;*THIS IS A_TEST OF THE MODF INSTRUCTION, WHICH MAKES USE OF 

*A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 
‘SAND CHECK THE RESULTS. 
+t 


FERRER RARER EEREREEEREE 


+8154: SCOPE 

MODE WITH (FSRC=AC=0) 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a4MODF SUB 

1$ .WORD 0,0 ZAC 

2$ -WORD 0,0 iE SRC 

3$ -WORD 0.0 RACTIONAL RES. 

4$ “WORD 0,0 SINTEGER R RES. 

5$ “WORD =1,-1 ‘ERROR FRACTIONAL RES. 

6$: -WORD =1,-1 TERROR INGETER RES. 

7$: 13 [FPS BEFORE EXECUTION. 
4 [FPS AFTER EXECUTION. 

8$: ERROR 2. :STORE SINGLE ZERO BAD. 

. ERROR 2 :AC V 1 <= ZERO FAILED. 

MODF TEST, WITH (FSRC=0) 
LPERR ;SET UP THE LOOP ON ERROR ADDRFSS. 
JSR PC, @¥MODF SUB 

1$: .WORD 123656,76543 =: AC 

2$: .WORD 0,0 *FSRC 

3$: “WORD 0.0 [FRACTIONAL RES. 

4$: -WORD 0.0 S INTEGER RESULT. 

5$: “WORD 123456,76543 ERROR FRACTIONAL RES. 

6$: “WORD -1,-1 SERROR INTEGER RES. 

7$: 0 [FPS BEFORE EXECUTION. 
4 [FPS AFTER EXECUTION. 

8$: ERROR 2. SSTORE ZERO FAILURE. 
ERROR 2 

9$: 

iMODF TEST WITH (AC=0) 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a4MODF SUB 

1$: .WORD 0,0 AC 

2$: -WORD 76543,21234 sFSRC 

3$: -WORD 0,0 [FRACTIONAL RES. 

4$: -WORD 0.0 S INTEGER RES. 

5$: -WORD 0.0 TERROR FRACTIONAL RES. 

é$: .WORD =1,-1 : ERROR INTEGER RES 

7$: 3 S BEFORE EXECUTION. 
4 [FPS AFTER EXECUTION, 

8$: ERROR 2 “RES.BAD 


BR 9$ 


SEQ 0181 
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10007 050752 104002 ERROR 2 
050754 9$: 


iMODF TEST WITH EXPONENT OF THE RESULT = 25 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
PC , a@#MODF SUB 
46252,125252 AC 
40300,0 ZF SRC 
[FRACTIONAL RES. 


eee 


050754 


051650 


46377,-1 
46252,125252 
40300,0 


S8S88888s88 
NM—OODONAUSWN—O 


Mmnm 


FPS AFTER EXECUTION. 
7ST 134 


—) ed ed od od od 2d 3 Lg I sd — 


2 
9$ 
2 
051024 
EXPONENT OF THE RESULT = 127 
;SET UP THE LOOP ON ERROR ADDRESS. 
051650 JS PC, @4#MODF SUB 
125252 : 77652,125252 AC 
000000 : 40300.0 *FSRC 
000000 : 0 [FRACTIONAL RES. 
177777 : 77777,~1 s INTEGER RES. 
125252 : 77652,125252 = ERROR FRACTIONAL RES. 
009600 : 40300,0 ZERROR INTEGER RES. 


zFPS BEFORE EXECUTION. 
zFPS AFTER EXECUTION. 


051024 


2 
9$ 
2 


051074 
EXPONENT OF RESULT = 25 
SET UP THE LOOP ON ERROR ADDRESS. 
051650 S PC Ny hee 
000001 : 


4 6200, zAC 
000000 . 40340. 0 sFSRC 
000000 : 0, FRACTIONAL RES. 
000001 : s INTEGER RES. 
000000 : ;ERROR FRACTIONAL RES. 
177777 : . 1,-1 ; ERROR INTEGER RES. 
: sFPS BEFORE EXECUTION. 
FPS AFTER ear Oe 
BAD CONSTANT (NOT 24), 
sOR ST 525 TO 050 INTO 150, 


051074 
0 


000401 
104002 
051144 


TEST WITH EXPONENT OF THE RESULT = 24 
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051144 
SET UP THE LOOP ON ERROR ADDRESS. 
eee S PC ,@4MODF SUB 


46000, 1 ZAC 
40340,0 sFSRC 
40100,0 sFRACTIONAL RES. 
46140,1 ; INTEGER RESULT. 
: 2 0,0 sERROR FRACTIONAL RES. 
177777 : ‘ -1,-1 sERROR INTEGER RES. 
: 0 sFPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
2 ;BAD CONSTANT USED (NOT 24) 
OR ST 525 TO 150 INTO 050 
051210 000401 BR 9$ 


051212 104002 2 
051214 


EXPONENT OF THE RESULT = 10 


104414 :SET UP THE LOOP ON ERROR ADDRESS. 
004737 051650 S PC, Q4MODF SUB 
: 42577, -1 ZAC 
40200,0 sFSRC 
40177,176000 FRACTIONAL RES. 
42577,140000 INTEGER RES 
-1,-1 TERROR FRACTIONAL RES. 
-1,-1 sERROR INTEGER RES. 
[FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


051214 


2 
9$ 
2 


THE EXPONENT OF THE RESULT = 10 
;SET UP THE LOCP ON ERROR ADDRESS. 
PC, @4MODF SUB 
42577,140001 ZAC 
40200,0 *FSRC 
sFRACTIONAL RES. 


34600,0 

42577,140000 : INTEGER RES. 

0000 : ‘ 0,0 ;ERROR FRACTIONAL RES. 
177777 : 3 =1,°1 ‘ 


: 


051650 


UTION. 
6. 7ST 532 TO 122 INTO NORMALIZE. 
2 
EXPONENT OF THE RESULT = 9 
;SET UP THE LOOP ON ERROR ADDRESS. 
051650 PC ,@AMODF SUB 
042377 100000 : 42377,100000 _—«; AC 


ak kk ed ed dd od od od 
elejlelejlejlelelelelelelelelelelelelole) 


a hk kk dd ed od od od od 
Ok et do od [ele lel el ela e) 
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040200 
000000 
042377 
177777 


177777 =(177777 
000013 


104002 
000401 
104002 


o 
2344 
Ws 
WN 


104414 
004737 051650 


A -2 2 9 14H 1 
lelelelelelelele]o) 
ed nd ced aad and ed 


177777 


051454 


051454 


000000 
177777 


051524 

051524 
051650 
000001 
000000 
000002 


051556 
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40200,0 :F SRC 
‘FRACTIONAL RES. 
42377,100000  : INTEGER RES. 
“1,1 TERROR FRACTIONAL RES. 
-1,-1 TERROR INTEGER RES. 
[FPS BEFORE EXECUTION. 
: [FPS AFTER EXECUTION. 
9$ 
2 


EXPONENT OF THE RESULT = 0 
:SET UP THE LOOP ON ERROR ADDRESS. 


3sAC 

sFSRC 

sFRACTIONAL RES. 

; INTEGER RES. 

TERROR FRACTIONAL RES. 
sERROR INTEGER RES. 

FPS BEFORE EXECUTION. 
zFPS AFTER EXECUTION. 
:ST 041 TO 046 INTO 246. 


PC , @4MODF SUB 
0177,- 


0,0 
40177,-1 
2 

9$ 

2 


EXPONENT OF THE RESULT = -15 
SET UP THE LOOP ON ERROR ADDRESS. 
PC Sr hee 


34377, ZAC 

sFSRC 
*FRACTIONAL RES. 
: INTEGER RES. 

0,0 SERROR FRACTIONAL RES. 

34377,-1 TERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
[FPS AFTER EXECUTION. 


9$ 
2 


EXPONENT OF RESULT = -64, IN ROUND MODE 
;SET UP THE LOOP ON ERROR ADDRESS. 


*FSRC 
:FRACTIONAL RES. 
s INTEGER RES. 


ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 


SEQ 0184 
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10175 
10176 
10177 
be af | 


— 
R=S3 


ed al cal ca ae ad ail all eee cll cc i cl ea sald 
lelelelelelelelelelelelelelele) 
Ps 


Ro LSSRVEARRA 


051562 000000 

51564 000000 
anes 
000401 
104002 


08-JUN-79 


08:4 


051650 
170000 
000000 


000000 
160000 
000000 
160000 


000366 


D 15 
11=JUN=79 11:50 PAGE 
MODF TEST 
7$: 0 

0 
&$: ERROR 2 
BR 9$ 
ERROR 2 
9$: 


185 


FPS BEFORE EXECUTION. 
SFPS AFTER EXECUTION 
[ROUND TRUNK, ST 156° INTO ROUND. 


MODE TEST WITH EXPONENT OF RESULT = 11 
SET UP THE LOOP ON ERROR ADDRESS. 


@AMODE S 
ey 170000 ; 
402006 sFSRC 
ZFRACTIONAL RES. 
T INTEGER RES. 


sERROR FRACTIONAL RES. 
ERROR INTEGER RES. 


40000,0 
1eer77 . 160000 
42777, 160000 


AC 
F 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


2 

9$ 

2 
GGGDONE 


THIS SUBROUTINE, MODF SUB, 


SIGN OF FRACTION. 


SIGN OF INTEGER. 
:GO TO NEXT TEST. 


IS CALLED TO SETUP THE 


SOPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK THE RESULTS. 


>IT IS CALLED THUS: 


ACARG: .WORD 
F SRCARG: - WORD 


D 
ERINTRES - WORD 
FPSB: D 


- WOR 
FPSA: . WORD 
ERR1: ERROR 
BR 
ERR2: ERROR 
CONT: 


e 
° 
> 
’ 
. 
’ 
. 
° 
. 
’ 
° 
° 
. 
° 
. 
e 
. 
e 
. 
° 
. 
’ 
° 
. 
e 
e 


: THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). 


z:AC_OPERAND 
:FSRC_OPERAND 
FRACTIONAL RESULT 

; INTEGER RESULT 

ERROR FRACTION RESULT 
ERROR INTEGER RESULT 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
FRACTION ERROR 


: INTEGER ERROR 
RETURN ADDRESS 


THE MODF 


ite Pietra IS EXECUTED. THEN THE RESULTS ARE RETRIEVED 


HE FRACTION PART OF THE RESULT 


IS COMPARED WITH FRES. IF THIS IS CORRECT 


;THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
;THEN THE FPS IS COMPARED WITH ae AFTER EXECUTION IF NO ERRORS OCCURRED 


: THEN MODFSUB WILL RETURN TO (ONT 


F THE FPS WAS INCORRECT 


:IT IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 


: THE ANTICIPATED BAD FRACTION, ERFRES. 


IF THIS DOESN*T MATCH 


;THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 


[FAILURE MATCHES THE TRUE RESULT 
;ERROR CALL AT ERR1. LIKEWISE IF 
;NOT CORRECT THEN IT 1S_COMPARED 
; FAILURE. 


THEN MODFSUB PASSES CONTROL TO THE 
THE INTEGER PART OF THE RESULT IS 
WITH THE ANTICIPATED INTEGER 


IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED H 


HERE. 
:IF A MATCH IS MADE HOWEVER, MODFSUB WILL RETURN CONTROL TO THE ERROR 


SEQ 0185 
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CALL AT ERR2. 


051650 012601 MODF SUB: MOV (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS 
BS 000200 MOV 3 -RO SET FD MODE. 


SET UP ACO 
052226 1,RO PUT A BACKROUND PATTERN INTO AC1. 
000030 MOV 30(R1), -RO SET UP THE FPS. 
051714 001236 MOV Se rati 
051710 000004 #4 RO 
051714 : (RO) ,ACO EXECUTE THE TEST INSTRUCTION. 


051716 R4 GET THE FPS. 
000200 MO 43 :SET FD MODE. 


052206 GET THE FRACTIONAL RESULT. 


0 052216 GET THE INTEGER RESULT. 
051740 174110 ACT, (RO) 


051742 010102 R2 SAVE THE DATA IN CASE OF ERROR. 
001240 Re. - aA STMP3 


COMPUTE THE ADDRESS OF THE FSRC. 


Re. “SHSTHPG 
are a4$STMPS 
Ro, a4STMP6 
001250 #MODF TO, a#$TMP7 
001252 #MODFT1 , a#STMP10 
010437 R4 ,a4#$TMP11 
052020 016137 000032 001256 32(R1) ,aa#$TMP12 
052026 012702 AMODFTO,R2 CHECK THE FRACTIONAL RESULT. 


10(R1), (R2) 
BRANCH IF INCORRECT. 


10$ 
000002 12(R1) ,2(R2) 
10$ 


052050 052216 #MODFT1,R2 CHECK THE INTEGER RESULT. 
052054 000014 14(R1), (R2) 

052060 1026 15 BRANCH IF INCORRECT. 
052062 ! 000016 000002 16(R1),2(R2) 

052070 15$ 


052072 026104 000032 32(R1),R4 CHECK THE FPS. 
052076 001034 20$ BRANCH IF INCORRECT. 


052100 000161 000042 9$: 42(R1) RETURN. 
FRACTIONAL ERROR, 
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026112 000020 10$: 20(R1), (R2) :WAS THE ERROR ANTICIPATED? 
001010 BN 11 s;BRANCH IF NOT ANTICIPATED. 
026162 000022 000002 22(R1) ,2¢R2) 

001004 11$ 


010102 R1,R2 : THE ERROR WAS ANTICIPATED SO 
052124 062702 000034 #34 ,R2 RETURN TO THE ERROR REPORT AT THE 


CALLING ROUTINE. 
052130 000112 (R2) 


052132 3 THE ERROR WAS NOT ANTICIPATED SO 
104002 2 ERROR 2 REPORT THE INCORRECT FRACTION HERE. 
000761 BR 9$ 


— ERROR. 
026112 000024 CMP > eta WAS THIS A ANTICIPATED? 


BRANCH IF 
000026 000002 Pah et 


THE ERROR WAS ANTICIAPTED SO RETURN 
052156 2702 000040 TO THE ERROR REPORT IN THE CALLING 


ROUTINE. 
052162 000112 


16$: THE ERROR WAS NOT ANTICIPATED SO REPORT 
104002 17$: THE INTEGER FAILURE HERE. 
000744 BR 9 


FPS INCORRECT. 
010437 001254 20$: MOV R4 ,a4STMP11 REPORT INCORRECT FPS. 
000032 001256 MOV 32(R1) ,a@#$TMP12 
21$: ERROR 2 
BR 9$ 


000000 000000 MODFTO: .WwORD 0,0,0.0 


052206 
052214 


052216 000000 000000 MODFT1: .WwORD 0,0,0.0 
052224 


052226 177777 177777 177777 MODP1: .WORD -1,-1,-1,-1 
052234 177777 


052236 GGGDONE : 

052236 104413 RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


FREER KERR EERE EERE REE 


:FTEST 55 MODD TEST 
eTHIS IS A TEST OF THE MODD INSTRUCTION. IT MAKES USE OF A SUBROUTINE 
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CRESTS” THE ARGUMENTS, EXECUTE THE INSTRUCTION AND CHECK THE 
-* 


-* 


° FERRE ERK ERE KEE REE REE EERE ERE RE RH 


052240 000004 15155: SCOPE 
;MODD WITH (FSRC=AC=0) 
Mogdt} 053746 per : Pc aerwonsis :SET UP THE LOOP ON ERROR ADDRESS. 
000000 000000 z . 0.0.0.0 sAC 
000000 000000 : 0,0,0.0 ZF SRC 
000000 000000 $ . 0.0,0,0 FRACTIONAL RES. 
000000 000000 : ‘ 0,0,0,0 INTEGER RES. 
000000 000000 : . 0.0.0.0 ERROR FRACTIONAL RES. 
000000 177777 : ‘ 0,0,-1,-1 ;ERROR INTEGER RES. 


sFPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


052242 


2 

9$ 

2 ST 231 TO 142 INTO 143 

F SRC=0 

SET UP THE LOOP ON ERROR ADDRESS. 
053746 PC ,d4#MODDSUB 
1$: ° 012345,67012 zAC 
° 34567,012345 

000000 000000 2$: ° 0,0,0.0 zFSRC 
000000 000000 3$: 0.0.0.0 FRACTIONAL RES. 
000000 000000 4$: , 0,0,0,0 : INTEGER RES. 
067012 5$: 012345,67012 sERROR FRACTIONAL RES. 


012345 ° 34567012345 
177777 177777 6%: . -1,-1,-1,-1 ERROR INTEGER RES. 


7$: :FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
8$: : 2 STORE DOUBLE ZERO 


9$ 
2 sAC V 1 <= ZERO ST 143 
052442 9$: 

sMODD TEST WITH (AC=0) 
052442 HHH3: 


052442 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
052444 004737 053746 JSR PC ,@AMODDSUB 
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052450 000000 000000 
6 127272 

000000 

000000 

177777 =177777 

177777 =177777 


052542 


052542 
053746 


RRRRRRRKKELE 


NORD 2 eS Ss SS Re es 
N—OOOWNAUSWN—O 


= nd 
RR 
mr 
Sw 


000000 

000000 
177777 =177777 
000000 


125252 
177777 =177777 


:MODD TEST WITH 
HHH5 : 


053746 
000000 000000 


146314 
167737 
000000 000000 


177777 

125726 

177777 =177777 
052716 177777 


MODD T 


LPERR 
JSR 
- WORD 


- WORD 
. WORD 
- WORD 


- WORD 
. WORD 
. WORD 


H 15 
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0,0,0,0 3AC 
72727,127272 sF SRC 
72727,127272 
0,0,0,0 sFRACTIONAL RES. 
0,0,0.0 s INTEGER RES. 
-1,°-1,°1,-1 sERROR FRACTIONAL RES. 
-1,°1,°1,°1 sERROR INTEGER RES. 
sFPS BEFORE EXECUTION, 
> sFPS AFTER EXECUTION. 
9$ 
2 
EXPONENT OF THE RESULT = 57 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@4MODDSUB 
56252,125252 ZAC 
125252,125250 
40300,0.0,0 ZF SRC 
0.0.0.0 sFRACTIONAL RES. 
56377,-1,-1,-4 ;INTEGER RES. 
0,0 sERROR FRACTIONAL RES. 
125252,125252 
56377,-1,-1,-1 ;ERROR INTEGER RES. 
7FPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
ST 526 TO 134 INTO 135 


2 
9$ 
2 


EXPONENT OF THE RESULT = 79 
;SET UP THE LOOP ON ERROR ADDRESS. 

PC,a4#MODDSUB 

146240,0,0,0 :AC 

63714,146314 : FSRC 

133572, 167737 

0,0,0,0 :FRACTIONAL RES. 

163777,-1 ; INTEGER RES. 

162531, 125726 

pe at, ee. eet ;ERROR FRACTIONAL RES. 


SEQ 0189 
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052720 


052742 


052742 


053136 
053140 
053142 


000401 
104002 


104414 


000200 
104002 
000401 
104002 


177777 
125726 


053746 
000000 


000000 
000000 
000000 
000000 
000000 


053746 
000000 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 
000000 


17=JUN=79 
MODD TEST 


63777,-1 
162531,125726 


2 
9$ 
2 


EXPONENT OF THE 


PC ,@AMODDSUB 


56200.0,0,1 
40340,0,0,0 
0,0,0,0 

56340,0,0,1 
40000,0,0,0 
56340,0,0,1 


2 


9$ 
2 


EXPONENT OF THE 


C ,@4MODDSUB 


56000. 0,0,1 
40340,0.0,0 
40100,0,0,0 
56140,0,0,1 
0.0.0.0 

56140,0,0,1 


I 15 
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ERROR INTEGER RES. 


:FPS BEFORE EXECUTION. 
zFPS AFTER EXECUTION. 


3ST 526 BAD SIGN 


RESULT = 57 


:SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

7FSRC 

FRACTIONAL RES. 

; INTEGER RES. 

ERROR FRACTIONAL RES. 

ERROR INTEGER RES. 

06s Boe Ec ie 


CONSTANT BAD (NOT 56) 
:0R ST 525 TO 050 INTO 150 


RESULT = 56 


SET UP THE LOOP ON ERROR ADDRESS. 
3AC 

7FSRC 

FRACTIONAL RES. 

: INTEGER RES. 

ERROR FRACTIONAL RES. 

ERROR INTEGER RES. 

00S Biome ECU 


;BAD_ CONSTANT (NOT 56) OR 
ST 525 TO 150 INTO 050 


SEQ 0190 
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10511 

10512 

10513 053142 

10514 053142 104414 

10515 053144 004737 053746 
10516 053150 051177 177777 
10517 053156 177777 

10518 053160 040200 000000 


31 
10520 053170 040177 177760 
000000 
10522 053200 051177 177777 
32 000000 
10524 053210 177777 177777 
10526 053220 177777 177777 


10533 083942 
10534 


10536 053242 


10538 053244 004737 053746 
10539 053250 040200 000000 


000000 
10541 053260 047577 177777 
10542 053264 176000 000001 
10543 053270 Ed 000000 


0000 
10545 053300 047577 177777 
176000 


10546 053 000 000000 
10547 053310 000000 
10548 053316 

10549 053320 0475 177777 


10563 053344 004737 053746 
10564 053350 047777 177777 
10565 053354 177000 000000 

053360 040200 000000 


MACY11 


177777 
000000 
000000 
177760 
177777 
177777 


000000 


000000 


000000 
177777 


000000 


J.15 
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;MODD TEST WITH 
HHHB : 


JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: WORD 
5$: . WORD 
6$: . WORD 
7$: 217 

200 
8$: ERROR 

BR 

ERROR 
9$: 
sMODD TEST WITH 
HHH9: 

LPERR 

JSR 
1$ . WORD 
2$ . WORD 

. WORD 
3$ . WORD 
4$ . WORD 

. WORD 
5$ . WORD 
6$ . WORD 
7$ 200 

200 
8$ ERROR 

R 

ERROR 
9$: 

MODD TEST WITH 
" LPERR 

JSR 
1$ . WORD 

. WORD 
2$ . WORD 


EXPONENT OF THE RESULT = 36 
:SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@4#MODDSUB 
51177,-1,-1,-1 ;AC 
40200,0,0,0 sFSRC 
40177,-20,0,0 ;FRACTIONAL RES. 
51177,-1,-20,0 ; INTEGER RES. 


#7 07 1,01 ERROR FRACTIONAL RES. 
-1,-1,°1,°1 sERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
3 FPS AFTER EXECUTION. 
9$ 
2 
EXPONENT OF THE RESULT = 30 
SET UP THE LOOP ON ERROR ADDRESS. 
PC ,a4MODDSUB 
40200.0,0,0 sAC 
47577 ,-1 :FSRC 
176000, 1 
31600,0,0,0 FRACTIONAL RES. 
47577,-1 : INTEGER RES. 
176000,0 


0,0,0.0 ERROR FRACTIONAL RES. 
47577,-1,-1,-1 ;ERROR INTEGER RES. 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION 


2 : (NORMALIZE) ST 532 TO 122 
> INTO NORM. 

9$ 

2 AC V 


X14 
SOR ST" 733 TO 156 INTO 157. 


EXPONENT OF THE RESULT = 31 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC ie a 
47777, ZAC 
175000, Q 


40200,0,0.0 sFSRC 


SEQ 0191 
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10567 053366 000000 

10568 053370 000000 000000 000000 3s: .WORD 0,0,0,0 
10569 053376 000000 

10570 053400 047777 177777 4$: .WORD 47777,-1 
10571 053404 177000 000000 “wORD  177000,0 
10572 053410 000000 000000 177000 S$: “WORD 0,0,177000,0 
10573 053416 000000 

10574 053420 177777 177777 177777 68: «WORD =1,-1,-1,-1 
10575 053426 177777 

10576 053430 000213 7$ 213 

10577 053432 000204 204 

10578 053434 104002 8$ ERROR 2 

10579 053436 000401 9$ 

10580 053440 104002 ERROR 2 

10581 053442 9$: 

10582 

10583 MODD TEST WITH EXPONENT OF THE 
10584 053442 H11 

10585 053442 104414 LPERR 

10586 053444 004737 053746 JSR PC ,a4¥MODDSUB 
10587 053450 040200 000000 000000 1$: .WORD  40200,0,0,0 
10588 053456 000000 __ 

10589 053460 040177 072727 2s: .WORD  40177,72727 
10590 053464 127272 072727 “WORD  127272,72727 
10591 053470 040177 072727 3$ “WORD  40177,72727 
10592 053474 127272 072727 “WORD  127272,72727 
10593 053500 000000 000000 000000 4$: -WORD 0,0,0, 

10594 053506 000000 

10595 053510 177777 177777 177777 S$: WORD 1,«1,-1,1 
10596 053516 177777 

10597 053520 000000 000000 177777 6$: .WORD 0,0,-1,-1 
10598 053526 177777 

10599 053530 000 7$ 200 

1 053532 2 200 

10601 053534 104002 ae ERROR 2 

10602 053536 000401 R 9$ 

10603 053540 104002 ERROR 2 

10604 053542 9$: 

10€05 

10606 MODD TEST WITH EXPONENT OF THE 
10607 053542 HH12: 

10608 053542 104414 LPERR 

10609 053544 004737 053746 JSR PC, a4#MODDSUB 
10610 053550 003377 177777 1$: . WORD 3377 -1 
10611 053554 177777 052525 WORD 53525 
10€12 053560 040200 000000 000000 2s: “WORD 70300 0.0.0 
19613 053566 000000 

10614 053570 003377 177777 3$: .WORD  3377,-1 

10615 053574 177777 052525 “WORD =1,52525 
10616 053600 000000 000000 000000 4$: .WORD 0,0,0, 

10617 053606 000000 

10618 053610 177777 177777 177777 S$: «WORD =1,-1,-1,-1 
10619 053616 177777 

10620 053620 000000 177777 6$: .WORD 0,0,-1,-1 
10621 053626 177777 

10622 053630 000200 7$: 200 


K 15 
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;FRACTIONAL RES. 

; INTEGER RES. 

ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 


FPS AFTER EXECUTION. 
; (BUT FD) STORE Xiu 


RESULT = 0 

;SET UP THE LOOP ON ERROR ADDRESS. 
7AC 

iFSRC 


FRACTIONAL RES. 

: INTEGER RES. 

ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
FPS AFTER EXECUTION. 


ST 246 TO 126 INTO 127 (BUT FD) 


RESULT = -115 


SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

7FSRC 

FRACTIONAL RES. 

: INTEGER RES. 

ERROR FRACTIONAL RES. 

ERROR INTEGER RES. 

zFPS BEFORE EXECUTION. 


SEQ 0192 
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CJKDCA.P11 08-JUN-79 08: 
10623 053632 000200 

10624 053634 104002 

10625 053636 401 

10626 053640 104002 

10627 053642 

10628 

10629 

10630 053642 

10631 053642 104414 

10632 053644 004737 053746 
10633 053650 040300 000000 
10624 053656 

10635 053660 020200 000000 
10636 05 000001 

10637 053670 020300 000000 
10638 053676 000002 

10639 053700 000000 000000 
10640 053706 000000 

10641 053710 000 000000 
10642 053716 177777 

10643 053720 177777 177777 
10644 053726 177777 

10645 053730 200 

10646 053732 200 

10647 053734 104002 

10648 053736 000401 

10649 053740 104002 

10650 053742 000137 054344 
10651 

10652 

10653 

10654 

10655 

10656 

10657 

10658 

10659 

10660 

10661 

10662 

10663 

10664 

10665 

10666 

10667 

10668 

10669 

10670 

10671 

10672 

10673 

10674 

10675 

10676 

10677 

10678 


000000 
000000 
000000 
000000 
177777 
177777 


200 :FPS AFTER EXECUTION. 
83: ERROR 2 
BR 9$ 
= ERROR 2 zST 446 TO 126 INTO 127 (BUT FD) 
;MODD TEST WITH EXPONENT OF THE RESULT = -63, IN ROUND MODE. 
"  LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#MODDSUB 
1$: .WORD  40300,0,0.0 AC 
2$: .WORD  20200,0,0,1 sFSRC 
3$: .WORD  20300,0,0,2 ;FRACTIONAL RES. 
4$: .WORD 0,0,0.0 : INTEGER RES. 
5$: .WORD 0,0,-1,-1 sERROR FRACTIONAL RES. 
6S: .WORD =1,-1,-1,-1 ZERROR INTEGER RES. 
7$: 200 ZFPS BEFORE EXECUTION. 
200 [FPS AFTER EXECUTION. 
8$: ERROR 2 ‘ST 127 INTO RND/TR 
BR 9$ ' 
ERROR 2 
9$: JMP @AHHHDONE :GO TO THE NEXT TEST. 


: THIS SUBROUTINE, MODDSUB, IS CALLED TO SETUP THE 
SOPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 
:1T IS CALLED THUS: 


CONT: RETURN ADDRESS 


; THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODD 
2 INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 

:THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS yo 
THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE C ORRECT 
3 THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
: THEN MODDSUB WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 
:1T IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
;THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 
THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 

FAILURE MATCHES THE TRUE RESULT THEN MODDSUB PASSES CONTROL TO THE 


: ACARG: .WORD X,X,X,X zAC_OPERAND 

: FSRCARG:.WORD X,X,X,X :FSRC_OPERAND 

: FRES: WOR XXX FRACTIONAL RESULT 

: INTRES: .WORD X,X,¥.X : INTEGER RESULT 

; ERFRES: .WORD X,X,X,X ERROR FRACTION RESULT 
: eons: «WORD X,X,X,X ERROR INTEGER RESULT 
: FPSB: .WORD X FPS BEFORE EXECUTION 
: FPSA: .WORD X FPS AFTER EXECUTION 
: ERR1: ERROR xX FRACTION ERROR 

: BR CONT 

: ERR2: ERROR X ; INTEGER ERROR 


SEQ 0193 
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053746 


054012 
054014 


054120 
054124 


054146 
054150 


0541 
054170 


sso 


174110 
010102 


001020 
077503 
012702 


000200 


052226 
000060 
054012 
000010 


000200 
054324 
054334 


001240 
000010 


054324 
000020 
009004 


054334 


000030 
000004 


001236 


001256 


MODD 
je CALL_AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
T CORRECT THEN IT iS COMPARED WITH THE ANTICIPATED INTEGER 
: FAILURE. IF THIS DOEN*T MATCH THEN THE ERROR [S REPORTED HERE. 
erat my Ss MADE HOWEVER, MODDSUB WILL RETURN CONTROL TO THE ERROR 


mesteornng MOV RO (SP)+,R1 ;GET A POINTER TO THE ARGUMENTS 


:SET FD MODE. 

;SET UP ACO 

:PUT A BACKROUND PATTERN INTO AC1. 
60(Ri), ;RO ;SET UP THE FPS." 

#1$,a4STMP2 
R1,RO 
#10,RO 

(RO) ,ACO ;EXECUTE THE TEST INSTRUCTION. 


;GET THE FPS. 
SET FD MODE. 


GET THE FRACTIONAL RESULT. 
:GET THE INTEGER RESULT. 


:COMPUTE THE ADDRESS OF THE FSRC. 


ACT, (ROS 
:SAVE THE DATA IN CASE OF ERROR. 


»R2 
Ro SAS TMPS 
#10,R 


6 
#MODDTO, a#STMP7 
AMODDT1 . a#'STMP10 
62(R1) ,aA#STMP12 
R4, a4$TMP11 
AMODDTO,.R2 :CHECK THE FRACTIONAL RESULT. 
R1,R3 
#20,R3 
#4,R5 
(R2)+, (R3)+ 
10$ 
R5,2$ 
#MODDTT R2 :CHECK THE INTEGER RESULT. 
430, R3 
R5 
{Rd)2. (RB) 
15$ 


BRANCH IF INCORRECT. 


;BRANCH IF INCORRECT. 


SEQ 0194 
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054172 077503 SOB R5,3$ 

054174 026104 000062 CMP 62(R1) ,R4 CHECK THE FPS. 
054200 001042 BNE 20$ ;BRANCH IF INCORRECT. 
054202 000161 000072 9$: JMP 72(R1) ;RETURN. 


sFRACTIONAL ERROR. 
012702 054324 10$: MOV ar ate oR2 WAS THE FRACTIONAL ERROR ANTICIPATED? 


000040 mae R3 


000004 #4 R5 
(Rdd*, (R3)+ 
11$ :BRANCH IF NOT ANTICIPATED. 


R5,50$ 
R1,R2 THE ERROR WAS ANTICIPATED SO 
#64 ,R2 sRETURN TO THE ERROR REPORT AT THE 
I CALLING ROUTINE. 
054240 (R2) 


054242 : THE ERROR WAS NOT ANTICIPATED SO 
054242 : 2 REPORT THE INCORRECT FRACTION HERE. 
054244 BR 9$ 


054246 2 054334 15$: MOV a. te :WAS THE INTEGER ERROR ANTICIPATED? 


000050 #50,R3 


000004 #4,R5 
(R2)+,(R3)+ 
17$ ;BRANCH IF NOT ANTICIPATED. 


RS ,60$ 
R1_R2 :THE ERROR WAS ANTICIAPTED SO RETURN 
000070 #70,R2 :TO THE ERROR REPORT IN THE CALLING 


(R2) ° 


16$: THE ERROR WAS NOT ANTICIPATED SO REPORT 
17$: & S. THE INTEGER FAILURE HERE. 


;FPS INCORRECT. 

001254 0$: MOV R4,a4$TMP11 REPORT INCORRECT FPS. 

000062 001256 MOV 62(R1) ,@ASTMP12 
21$: ERROR 2 

054322 BR 9$ 


054324 000000 000000 MODDTO: .WORD 0,0,0,0 
054332 


054334 000000 000000 000000 MODDT1: .WORD 0,0,0.0 
054342 000000 


054344 HHHDONE : 
054344 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
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SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH + teehee (HAS 
; THE USER TYPED CONTROL G?) 


FARE EERE RRR EERE EERE EEE 


: TEST 56 UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 


THIS IS A_TEST OF THE MODF OVERFLOW AND UNDERFLOW CONDITIONS. IT MAKES 
:*USE OF A SUBROUTINE TO SETUP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 
: SAND CHECK THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 


SERRE REE ERE REE EERE EEE ERE EERE 


054 346 18156: SCOPE 


;UNDERF LOW TEST, WITH EXPONENT OF THE RESULT = -129, FIU = 1, FID = 1 
zSET UP THE LOOP ON ERROR ADDRESS. 
PC ,MODFOV 
20123,45676 ZAC 
20 sFSRC 
123,45676 :FRACTIONAL RES. 
0,0 : INTEGER RES. 


: ; -j,-1 TERROR FRACTIONAL RES. 
177777 : “WORD -1.-1 TERROR INTEGER RES. 


054350 
000320 


FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


sFEC 
sFEC INCORRECT, UNDERFLOW. 


sAC V 1 (2,3) <= ZERO, ST 126. 
054422 9$: 


= EXP OF RESULT = -193, FIU = 0, FID = 1 
SET UP THE LOOP ON ERROR ADDRESS. 

054676 
000000 : 7AC 
000000 : - WO 0 3FSRC 
000000 : ° 0,0 FRACTIONAL RES. 
000000 : ° : INTEGER RES. 
177777 : . SERROR FRACTIONAL RES. 
177777 : .WOR SERROR INTEGER RES. 


FPS BEFORE EXECUTION. 
hs AFTER EXECUTION. 


054422 


054474 


OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, FIV = 1, FID = 
054474 MMM : 
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054474 ;SET UP THE LOOP ON ERROR ADDRESS. 
054676 PC ,@4MODF OV 
125252 : 60052,125252 AC 
000000 : 60200,.0 FRC 
000000 : WOR 0 sFRACTIONAL RES. 
125252 : “WORD 52,125252 S INTEGER RES. 
000000 : 0.0 ‘ERROR FRACTIONAL RES. 
0,0 * ERROR INTEGER RES. 
sFPS BEFORE EXECUTION. 
a AFTER EXECUTION. 


BAD FEC ON OVERFLOW. 
000401 BR $ 
054544 7ST 520 TO STORE ZERO TwICE 
zs INTO 162 
054546 
THE RESULT = 130, FIV = 0, FID = 1 
;SET UP THE LOOP ON ERROR ADDRESS. 
054676 C,aAMODF OV 
067654 : x bOSeS, 67654 3AC 
000000 : 60200.0 ZF SRC 
: 0,0 sFRACTIONAL RES. 
0,0 s INTEGER RES. 
sERROR FRACTIONAL RES. 


0,0 
345 ,67654 ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 


054546 


FPS AFTER EXECUTION. 
FEC 


7ST 520 TO 162 INTO STORE ZERO TWICE. 
054620 9$: 


OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, RESULT NEGATIVE 
AND FIV = 1, FID = 1 


054620 
SET UP THE LOOP ON ERROR ADDRESS. 
054676 PC, a4MODFOV 
125252 : Y 160252,125252  :AC 
000000 : 60000,0 :FSRC 
000000 : : 0 SFRACTIONAL RES. 
125252 : 100052,125252 INTEGER RES. 
000000 : 6 $ ‘ERROR FRACTIONAL RES. 
125252 : .~WORD 52,125252 ERROR INTEGER RES. 
: FPS BEFORE EXECUTION. 
ZFS AFTER EXECUTION. 
2 
9$ 
2 ST 517, BAD SIGN. 
054672 055272 : aAMMMDONE ‘3 TO tHe NEXT TEST. 


: THIS SUBROUTINE, MODFOV, IS CALLED TO SETUP THE 
OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK THE RESULTS. 
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054676 


054742 
054744 


0547 
054770 


012601 


000200 


052226 
000030 
054742 
000004 


000200 
055252 
055262 


001236 


UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 
:1T IS CALLED THUS: 


sAC_OPERAND 
:FSRC_OPERAND 
FRACTIONAL RESULT 

; INTEGER RESULT 

ERROR FRACTION RESULT 
ERROR INTEGER RESULT 
:FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


- WORD : 
ERR1: pe :FEC ERROR 


B 
ERR2: ERROR ; INTEGER ERROR 
CONT: RETURN ADDRESS 


: THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODF 
INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
:THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
:THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
: THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
; THEN MODFOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 
:1T_IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
:THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 
;THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
[FAILURE MATCHES THE TRUE RESULT THEN MODFOV PASSES CONTROL TO THE 
ERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
sNOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 
sFAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 
3 vag alt MADE HOWEVER, MODFOV WILL RETURN CONTROL TO THE ERROR 


MODFOV: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 
MOV 60.RO SET FD MODE. 


;SET UP ACO 
:PUT A BACKROUND PATTERN INTO AC1. 
s0(Ri, -RO sSET UP THE FPS. 
#1$ ,AASTMP2 
R1,RO0 COMPUTE THE ADDRESS OF THE FSRC. 
#4 ,RO 
(RO) ,ACO EXECUTE THE TEST INSTRUCTION. 
GET THE FPS, 
GET FEC. 
SET FD MODE. 
:GET THE FRACTIONAL RESULT. 
:GET THE INTEGER RESULT. 


.s 3s © &© & & 


>< XC OK OK OK OK 


3 D 
ERINTRES: . WORD 
FPSB: . WORD 
FPSA: . WORD 

FECS 


nf wage o 6 ew 
4 


© Be Be Be Be Be Be Be Be Be Be Be Ge Se Se 


AC1, (RO) 


SEQ 0198 





CJKDCA=A_KEF11=A FP DIAG PART 1 


CJKDCA.P11 


10959 
10960 
10961 
10962 
10963 


10964 
10965 


10999 


SESSsEssss 


— Ses SV os oe 
me et a a td os 6a a od 
SWNM-00 


elelelele) 
ab ad od 


054772 
054774 


055110 
055112 


055132 


055134 
055140 


055142 
055146 
055150 


055154 
055154 
055156 


055160 


055 
055210 


055212 


010102 


016137 
012702 


012702 
026112 
001016 
026162 
001012 


026104 
001024 


026105 
001030 


000161 


104002 
000774 
026112 
001010 
026162 
001004 
010102 
062702 
000112 


104002 
000757 


010437 


O08=JUN-79 08:40 


001240 
000004 


055252 
000010 
000012 
055262 
000014 
000016 
000032 
000034 


000044 


000024 
000026 


000042 


001254 


MACY11 30A(1052) 
156 


001250 
001252 


001256 
001262 


000002 


000002 


000002 


11-JUN-79 

MOV R1,R2 
MCV R2,a4$STMP3 
ADD » 
MOV R2, 4S TMP4 
ADD #4,R 
MOV R2,a4$TMPS 
ADD #4 ,R2 
MOV R2,a4STMP6 
MOV #MODF DO ,a#$TMP7 
MOV AMODFD1 , a#$ThiP10 
MOV R4,a4STMP11 
MOV 32(R1) ,AASTMP12 
MOV R5,a4$STMP13 
MOV 34(R1) ,@#STMP14 
MOV AMODFDO,R2 
CMP 10(R1), (R2) 
BNE 10$ 
CMP 12(R1) ,2¢(R2) 
BNE 10$ 
MOV A#MODFD1,R2 
CMP 74(R1), (R2) 
BNE 15$ 
CMP 16(R1) ,2(R2) 
BNE 15$ 
CMP 32(R1) RS 
BNE 20$ 
CMP 34(R1),R5 
BNE 25$ 

9$: JMP 44(R1) 

sFRACTIONAL ERROR. 

10$: 

12$: ERROR 2 
BR 9$ 

; INTEGER ERROR. 

15$: CMP 24(R1),(R2) 
BNE 6 
CMP 26(R1),2(R2) 
BNE 16$ 
MOV R?,R 
ADD #42 ,R2 
JMP (R2) 

16$: 

17$: ERROR 2 
BR ) 3 

sFPS INCORRECT. 

20$: MOV R4,a4STMP11 
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;SAVE THE DATA IN CASE OF ERROR. 


CHECK THE FRACTIONAL RESULT. 
BRANCH IF INCORRECT. 


CHECK THE INTEGER RESULT. 
sBRANCH IF INCORRECT. 


; CHECK THE FPS. 
:BRANCH IF INCORRECT. 


;CHECK THE FEC. 
BRANCH IF INCORRECT. 


ZRETURN. 


THE ERROR WAS NOT ANTICIPATED SO 
sREPORT THE INCORRECT FRACTION HERE. 


sWAS THIS ERROR ANTICIPATED? 
BRANCH IF NOT. 


THE ERROR WAS ANTICIAPTED SO RETURN 
:T0 He ERROR REPORT IN THE CALLING 


THE ERROR WAS NOT ANTICIPATED SO REPORT 
;THE INTEGER FAILURE HERE. 


REPORT INCORRECT FPS. 


SEQ 0199 
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CJKDCA.P11 08-JUN-79 08:40 UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST SEQ 0200 
11015 055216 016137 000032 001256 MOV 32(R1) ,a#STMP12 

11016 055224 104002 21$: ERROR 2 

BE 4 055226 000750 BR 

11019 REPORT FEC ERROR. 

11020 055230 010537 001260 25$: MOV RS, a#$TMP13 

11021 055234 016137 000034 001262 MOV 34(R1) ,@#$STMP14 

11022 055242 010102 MOV R1,R2 

11023 055244 062702 000036 ADD #36,R2 

1108¢ 055250 000112 JMP (R2) 

1 

11026 055252 000006 000000 000000 MODFDO: .wORD 0,0.0.0 

11058 055260 000000 

11029 055262 000000 000000 000000 MODFD1: .WORD 0,0,0,0 

ie 955270 000000 

11032 055272 MMMDONE : 

11033 055272 104413 RSE TUP :GO_ INITIALIZE THE FPS AND STACK; AND 
11034 SEE IF THE USER HAS EXPRESSED 
11035 THE DESIRE TO CHANGE THE SOFTWARE 
11036 VIRTUAL CONSOLE SWITCH REGISTER (HAS 
11037 : THE USER TYPED CONTROL G?). 

11038 

11039 

11040 

11041 

11042 FF RE RIKKI IKKE KEK EKER EKER EKER ERE KEK 
timer z*TEST 57 UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 

-~@ 
11045 :*THIS IS A_TEST OF THE MODD INSTRUCTION'S OVER FLOW AND UNDER FLOW 
11046 s*CONDITIONS. A SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE THE 
1iken :*MODD INSTUCTION AND CHECK THE RESULTS. 
-* 

11049 TUBES SEIS SISSIES IIIUIUIUINOI III OOO Drie tienes 
ret 055274 000004 TSTS7: SCOPE 

11052 ; UNDERFLOW TEST WITH EXPONENT OF THE RESULT = -129, FIU = 1, FID = 1 
11053 055276 NNN1 : 

11054 055276 104414 LPERR SET UP THE LOOP ON ERROR ADDRESS. 
11055 055300 004737 055712 JSR PC ,aAMODDOV 

11056 055304 020252 125252 1$: «WORD 20252,125252 zAC 

11057 055310 125252 125252 -WORD  125252,125252 

11058 055314 020100 000000 000000 2$: -WORD 20100,0,0,0 sFSRC 

11059 055322 000000 

11060 055324 000177 177777 177777 3$: -WORD = 177,-1,-1,-1 sFRACTIONAL RES. 

11061 055332 177777 

B's Reeazs 000000 000000 000000 4$: -WORD 0,0,0,0 : INTEGER RES. 

11064 055344 020252 125252 5$: «WORD 20252,125252 ERROR FRACTIONAL RES. 

11065 055350 125252 125252 -WORD  125252,125252 

11066 055354 000000 000000 177777 6$: -WORD 0,0,-1,-1 ERROR INTEGER RES. 

11067 055362 177777 

11068 055364 042200 7$: 42200 :FPS BEFORE EXECUTION, 

11069 055366 142204 142204 sFPS AFTER EXECUTION. 

11070 055370 000012 12 sFEC 
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055372 104 8$: pe é FEC INCORRECT ON UNDERFLOW. 


9$ ERROR 2 3ST 155 (BUT FD) 


{UNDERFLOW TEST WITH EXPONENT OF THE RESULT = -193, FIU = 0, FID = 1 
, :SET UP THE LOOP ON ERROR ADDRESS. 
055712 PC, a#MODDOV 
000000 1$: 10600,0 ZAC 
000000 : 123456,0 
000000 000000 28: : 10200,0.0.0 SF SRC 
000000 000000 3$: 0.0.0.0 ;FRACTIONAL RES. 
000000 000000 4s: 0.0.0.0 INTEGER RES. 
000000 000000 5$: : 0.0.0.0 ERROR FRACTIONAL RES. 
000000 6$: ; 0,0 ZERROR INTEGER RES. 
000000 WO 133456,0 


7$: :FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 


leoleleleleal@) 
SeeeSsSs 


BSSSSERSE 


3 


8$: 


Sz32 


0555 3ST 047 (BUT FD). 
055502 9$: 


"Se lla TEST WITH EXPONENT OF THE RESULT = 128, FIV = 1, FID = 1 
SET UP THE LOOP ON ERROR ADDRESS. 

PC ,a4MODD0OV 
60252,125252 sAC 
125252,125252 

000000 000000 : - WOR 60100,0,0,0 7FSRC 

000000 000000 : . 0,0,0.0 FRACTIONAL RES. 

177777 =177777 : ‘ 177,71,-1,~1 : INTEGER RES. 

000000 000000 : . 0,0,0,0 ERROR FRACTIONAL RES. 


177777 : : 177,-1 :ERROR INTEGER RES. 
125252 “WORD 125252,125252 
: 7FPS BEFORE EXECUTION. 


ZEPS AFTER EXECUTION. 
[FEC BAD ON OVERFLOW. 
:ST 520 TO 162 INTO 163 (BUT FD). 


3 


8 
099 


055502 
055712 


1A pha TEST WITH EXPONENT OF THE RESULT = 130, FIV = 0, FID = 1 
" LPERR SET UP THE LOOP ON ERROR ADDRESS. 


kk kk dd et nd td dt nd od od od 2 


MNMNNNNN 2 2S 2 2 PP SS | S| DOOOCODO00O 
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11127 055606 004737 055712 JSR PC, a#MODDOV 
11128 055612 060200 000000 1$: .WORD  60200,0 : 
11129 055616 125252 000000 "WORD 125252,0 
11130 055622 960200 000000 000000 2$: “WORD  60200,0,0.0 F SRC 
11132 055632 000000 000000 000000 3S: .WORD 0,0,0,0 :FRACTIONAL RES. 
11133 055640 000000 
11134 055642 000000 000000 000000 4$: .WORD 0,0,0,0 : INTEGER RES. 
11135 055650 000000 
11136 055652 000000 000000 000000 S$: .WORD 0,0,0,0 ZERROR FRACTIONAL RES. 
11137 055660 000000 
11138 055662 000400 000000 6$: .WORD 400,0 sERROR INTEGER RES. 
11139 055666 125252 000000 “WORD 125252,0 
11140 055672 006211 7$: 6211 sFPS BEFORE EXECUTION. 
11141 055674 006206 6206 “FPS AFTER EXECUTION. 
11142 055676 000010 10 FEC 
055700 000240 8$: NOP 
055702 000401 BR 9$ 
055704 104002 ERROR 2 zST 520 TO 162 INTO STORE ZERO TWICE. 
055706 000137 056320 9$: JMP @ANNNDONE :GO TO NEXT TEST. 


: THIS SUBROUTINE, MODDOV, IS CALLED TO SETUP THE 
OPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 
;I1T IS CALLED THUS: 


Oo MAMMA IVI ES EERE RRERD 
2S Sows OEWH—O OONAUS Wr 


: ACARG: .WORD X,X,X,X AC _OPERAND 

3 FSRCARG:.WORD X,X,X,X zFSRC_OPERAND 

; FRES: «WORD = X,X,X,X FRACTIONAL RESULT 

3 INTRES: .WORD X,X,X,X : INTEGER RESULT 

: ERFRES: .WORD X,X,X,X ERROR FRACTION RESULT 
: ERINTRES:.WORD X,X,X,X ERROR INTEGER RESULT 
: FPSB: «WORD X FPS BEFORE EXECUTION 
; FPSA: «WORD X FPS AFTER EXECUTION 
; ERR1: ERROR xX FRACTION ERROR 

: BR CONT 

: ERR2: ERROR xX : INTEGER ERROR 


CONT: RETURN ADDRESS 


: THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODD 

: INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 

:THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
2 THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
: THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
: THEN MODDOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 

:I1T_IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
;THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T MATCH 

;THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
FAILURE MATCHES THE TRUE RESULT THEN MODDOV PASSES CONTROL TO THE 

ERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 

sNOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 

FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 

ty a boa MADE HOWEVER, MODDOV WILL RETURN CONTROL TO THE ERROR 


05571¢ 012601 MODDOV: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 
055714 012700 000200 MOV #200,R0 SET FD MODE. 


kkk dd 8k ad a sd od td od od 2 od ot td So oh a I a a 


CIS IaHISIRIN SSS SEST 


MSO OODNAUSWN-O”O 
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11183 055720 170100 LDFPS RO 

11184 055722 010100 MOV :SET UP ACO 

11185 055724 172410 LDD (RO) ,ACO 

11186 055726 012700 052226 MOV #MODP1, RO :PUT A BACKROUND PATTERN INTO AC1. 
11187 055732 172510 LDD (RO) ACI 

11188 055734 016100 000060 MOV 60(R1),RO :SET UP THE FPS. 

11189 055740 170100 LOFPS RO 

11190 055742 012737 055756 001236 MOV #1$, aASTMP2 

11191 055750 010100 MOV R1,RO ;COMPUTE THE ADDRESS OF THE FSRC. 
11192 055752 062700 000010 ADD #10,RO 

11194 055756 171410 1$: MODD —- (RO) ,ACO sEXECUTE THE TEST INSTPUCTION. 
11196 055760 170305 STST RS :GET THE FPS. 

11197 055762 170204 STFPS RG “GET THE FPS. 

11198 055764 012700 000200 MOV #200,RO “SET FD MODE. 

11199 055770 170100 LDFPS R 

11200 055772 012700 056300 MOV #MODDDO,RO :GET THE FRACTIONAL RESULT. 
11201 055776 174070 STD ACO, (RO) 

11202 056000 012700 056310 MOV #MODDD1 RO :GET THE INTEGER RESULT. 
11203 056004 174110 STD AC1, (RO) 

11205 056006 010102 MOV R1,R2 ;SAVE THE DATA IN CASE OF ERROR. 
11206 056010 010237 001240 MOV R2. aASTMP3 

11207 056014 062702 000010 ADD #10,R2 

11208 056020 010237 001242 MOV R2, aA$STMP4 

11209 056024 062702 000010 ADD #10,R2 

11210 056030 010237 001244 MOV R2, a#STMPS 

11211 056034 062702 000010 ADD #10.R 

11212 056040 010237 001246 MOV R2, aASTMPE 

11213 056044 012737 056300 001250 MOV #MODDDO, aS TMP7 

11214 056052 012737 056310 001252 MOV #MODDD 1. a#STMP10 

11215 056060 010437 001254 MOV R4, a¥STMP11 

11216 056064 016137 000062 001256 MOV 62(R1) ,a#$TMP12 

11217 056072 010537 001260 MOV R5, a¥$TMP13 

11218 056076 016137 000064 001262 MOV 64(R1) ,a#$STMP14 

11220 056104 012702 056300 MOV AMODDDO,R2 ZCHECK THE FRACTIONAL RESULT. 
11221 056110 010103 MOV R1,R3 

11222 056112 062703 000020 ADD #20,R3 

11223 056116 012700 000004 MOV #4,RO 

11224 056122 022223 2$: CMP (R2)+, (R3)+ 

11225 056124 001023 BNE 10$ :BRANCH IF INCORRECT. 

11206 056126 077003 SOB RO, 2$ 

11228 056130 012702 056310 MOV #MODDD1,R2 ZCHECK THE INTEGER RESULT. 
11229 056134 010103 MOV R1,R3 

11230 056136 062703 000030 ADD #30,R3 

11231 056142 012700 000004 MOV #4,RO 

11232 056146 022223 3$: CMP (R2)+, (R3)+ 

11233 056150 001013 BNE 15$ :BRANCH IF INCORRECT. 

11234 056152 (€77003 SOB RO, 3$ 

11235 

11236 

11237 056154 026104 000062 CMP 62(R1) .R4 =CHECK THE FPS. 

11238 056160 001027 BNE 20$ *BRANCH IF INCORRECT. 
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056162 026105 000064 CMP 64(R1) ,R5 CHECK THE FEC. 
056166 001033 BNE 25$ 


056170 000161 000074 9$: JMP 74(R1) ;RETURN. 


FRACTIONAL ERROR. 
056174 10$: THE ERROR WAS NOT ANTICIPATED SO 
056174 104002 12$: ERROR 2 REPORT THE INCORRECT FRACTION HERE. 
056176 000774 BR 9$ 


; INTEGER ERROR. 
012702 056310 15$: MOV ~ haies WAS THE INTEGER ERROR ANTICIPATED? 


000050 #50,R3 


000004 4 RS 
$0$: (R2)+,(R3)+ 
17$ BRANCH IF NOT ANTICIPATED. 


R5,60$ 
R1,R2 THE ERROR WAS ANTICIAPTED SO RETURN 
056226 062702 000072 #72,R2 :TO THE ERROR REPORT IN THE CALLING 


7ROUT INE 
056232 (R2) 


056234 : THE ERROR WAS NOT ANTICIPATED SO REPORT 
056234 104002 : ERROR 2 THE INTEGER FAILURE HERE. 
056236 000754 BR 9$ 


FPS INCORRECT. 
056240 010437 001254 20$: MOV R4,a4$TMP11 sREPORT INCORRECT FPS. 
016137 000062 001256 MOV 62(R1) ,a#STMP12 
104002 21$: ERROR 2 
056254 000745 BR 9$ 


REPORT FEC ERROR. 
056256 010537 001260 25$: MOV RS ,a#$TMP13 
000064 001262 4iR1). "MSTMPT4 


000066 #66,R2 
056276 (R2) 


056300 000000 000000 : .WOF 0,0,0,0 
056306 


056310 000000 000000 000000 : 0,0,0.0 
056316 


056320 : 
056320 104413 :GO_ INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH oe (HAS 
;THE USER TYPED CONTROL G?) 


MYNonononnononenonry 
AR2S 


Mm 


SANSA 
SISNRARANASS 


CoCo 
No— 


NonononoNoNoNonoNoNonony 
BIISSISSSRS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Nr 
xe 


DUAR RRR RE RK REE EKER KERR KER REE EERERERERREE RR 
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CJKDCA.P11 


11295 
BE a 


Nm 
N 


SRoRoR Se se 


Ww 
8s 
co 


WWWNWWNWWWNWNWNIWNININWNANWAWS 
NONNOD 2 2 SS SS oe 


BDWNAUSWN $0 OODNAUSWN—O 


WANWWPDNNN 
WYASS 


w 


KREFEEEEKERA 


cath eth cl ch ce ca el ek cael ca ae ce cc ec ce ced ce ce a a ce ce ce cd cae ce eee ce el ce ee ed cee a ced ec ce cd a ei ed ee ec 
CDWOONAWUS wWhy—0 COON 


sk kk sd a ad a od ah oh od a ot a te 


Ww 


056322 


056524 


08-JUN-79 08:40 


000004 
104414 


056342 
000000 


177777 
000000 


057124 
057120 


000004 


000000 
057124 


057120 


000000 


057154 
104004 


057114 
057114 


000244 


000244 


T60 


s*TEST 


** 
° 


MORE MICROCODES COVERAGE 


60 MORE MICROCODES COVERAGE 
:*THIS TEST WILL PROVIDE ADDITIONAL MICRO=CODE LOCATIONS COVERAGE 
>*IN FPP1 AND FPP2. 


rs REE REE KERR EEE 


TST60: 
XX1: 


XT1: 


XTIA: 
XT2: 


XT2A: 


XT2B: 


XT3: 


XT3A: 


XT4: 


XTGA: 


XT48: 


SCOPE 
LPERR 
MOV 
STFPS 
BR 
ERROR 


AXT1A, 04244 


#XPATO,RO 
~(RO) ,ACO 
AXPATO=4,,RO 
XT2B 


RO 
#4 ,RO 
T 


xT3 
; 


#0 
#XPATO,RO 
ACO,-(RO) 
AXPAT0=4 ,RO 
XTS5A 


#0 
AXTSA, aA 244 
#04000 
@4XPATO,ACO 
GONPATS.ACS 
RO 

#104004 ,RO 
ioe 

#XBUF ,RO 
ACO, (RO) 

a4 XBUF 

av5 


SET UP THE LOOP ON ERROR ADDRESS. 


SHOULD NOT TRAP 


FPS IS NOT ZEROED 


RO WAS NOT DECR By 4 


CHECK IF FZ IS SET? 


RO WAS NOT DECR BY 4 


z INTRPT ON UNDEFINED VARIABLE 


;GET UNDEFINED VARIABLE, _0 
MISSING INTERRUPT TO 244 


CHECK: FER,FIUV,FZ ARE SET? 


:ACO SHOULD REMAIN ZEROED 


SEQ 0205 
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056526 012737 056546 000244 xTS: AXTSA, A244 
0565 004000 #04006 yINTRPT ON UNDEF INED VARIBALE 
057154 @#XPAT3,ACO TGET UNDEFINED VARIABLE, 
Bos 1 ‘MISSING INTERRUPT TO 2447 


RO 
104014 CMP — CHECK: FER,FIUV,FN,F2 ARE SET? 


iba atten anal alk 
WAWAWOINA 
in 

— 


viv 


MIVIVIVIUT 
OOONAURS WI 


1 
057114 XT5B: AXBUF ,RO 
ACO, (RO) 
057114 @4 XBUF 
E XT6 
056574 1 sACO SHOULD BE ZEROED 


056576 
SET UP THE LOOP ON ERROR ADDRESS. 


: INTRPT ON UNDEFINED VARIBALE 


SESSSESES 


056624 000244 MOV ~ #XT6A,a4244 
004000 #04000 


057124 @4XPATO,ACO 
057154 Posen 


& 


NNN NN NNN 
CONAUBWN—"OO 


Fe MISSING INTERRUPT TO 244 
104004 "CMP #104004 .RO CHECK: FER,FIUV,FZ ARE SET? 


057114 : MOV AXBUF ,RO 
ACO, (RO) 

057114 @4XBUF 
xi? 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


BS 


:ACO SHOULD BE ZEROED 


i 


000000 #0 

@AXPATS ,ACO 

ACO, @4#XPATO 

000003 057214 MP — CHECK DATA 


BRS 


104001 


170127 000100 : #100 sSET FL 
@AXPAT4S ,ACO 
6 ACO, XPATO 
000002 057216 MP + aaa ct 


SPESSSSEES 


000000 #0 
057124 @4XPATO,ACO 
057164 a tt 
RO 
XT10 
2 


WWWWW 


056752 


056754 170127 000000 : LDFPS 40 
056760 172437 057164 LDF @AXPATS ,ACO 


RARALVLSSSLE 


HRHRRHKRHRHRH 





M 16 
CJKDCA=A_KEF11=A FP DIAG api | 1 MACY11 — 1i=JUN=79 11:50 PAGE 207 


ACO, (RO) 
057052 022737 040176 057114 CMP #040176, a4XBUF CHECK DATA 
057060 XT13 


CJKDCA.P11 — OB=JUN=79 08:4 MORE MICROCODES COVERAGE SEQ 0207 
11407 64 173037 057164 SUBF § @#XPAT4,ACO 
1408 056770 170200 STFPS RO 
1409 056772 022700 000004 CMP #4 ,RO 
1410 056776 001401 BEQ xT11 
oi 057000 104002 ERROR 2 
1413 057002 170127 000000 XT11: LDFPS #0 
1414 057006 172437 057164 LDF @AXPATS ACO 
1415 057012 173437 057164 CMPF § 34#XPAT4,ACO 
1416 057016 170200 STFPS RO 
1417 057020 022700 000004 C #4 RO sCHECK if FZ IS SET? 
1418 057024 001401 BEQ xTi2 
19 057026 104 ERROR 
21 057030 170127 000000 XT12: LDFPS #0 
22 057034 172437 057164 LDF @AXPAT4 ACO 
23 057040 174437 057144 DIVF § a#XPAT2.ACO 
24 057044 012700 057114 MOV #XBUF ,RO 
3° 057050 174010 STF 
2 
2 


CO~NOS 
28 
& 
Lo] 
— 
wm 
mn 
oO 


057064 170127 000000 XT13:  LDFPS #0 
057070 172437 057174 LDF @4XPATS ACO 


057074 174437 057204 DIVF @4XPAT6,ACO 
057100 170200 0 


R 
000004 CMP #4,RO 
057106 001401 BEQ XT13B 


2 
057112 000444 XT13B: BR XNEXT 


BSRERRERRRRKRKRRRRRRRRERSE 


SBIKARAVYSSS 
° 
wi 
=> 
° 
Os) 
° 
nm 
N 
S 


442 057124 000000 000000 000000 XPATO: .WORD 0.0.0.0 

444 057134 000001 000001 000001 XPAT1: .WORD 1,1,1,1 
057144 040401 000000 000000 XPAT2: .wC 40401,0.0,0 
48 057154 700000 000000 000000 XPAT3: .WORD 100000,0.0,0 
057164 040400 000000 000000 XPAT4: .WORD 040400,0.0,0 
057174 000207 000000 000000 XPATS: .WORD 207,0.0.0 
057204 977007 000000 000000 XPAT6: .WORD 77007,0.0,0 


057214 000000 000000 000000 XPATO: .WORD 0,0.0,0 
057222 000000 


057224 XNEXT: 


057224 01 
057230 01 


MMA) 


2 2 hh hs hh a hh a a a a a a hh a a a a ss 
MSC OBNAUSWN—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
ar 057114 000000 000000 000000 xBUF: .WORD 0,0,0.0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ot tA at tl al $9 5 
Oo 


706 001100 MOV AMSTACK, SP SET UP STACK POINTER 
737 057264 000904 MOV #1$,a44 :SET UP FOR TIMEOUT IF NO MULTI-TESTER 


et ot ot ot YH ot 
me et od od os ot os tt ss 
PIA APAAA SIA SSIS 


BNF ARAN=SSRIE 


B 1 
a KEF11=-A FP As -y PART 1 MACY11 30A< 1052) 1i=JUN-79 11:50 PAGE 208 
79 08:40 _ 760 MORE MICROCODES COVERAGE _ SEQ 0208 


MOV #340 ,a46 

MOV #1 04164000 7 SET “‘STOP’’ ON MULTI-TESTER 
oh a RESTORE TRAP CATCHER 

L 


900340 
000001 


000006 
000006 


121610 
122004 
122022 
100000 


057447 
121770 


057444 
000042 
057360 


000042 


000020 
010000 





~~ 


1$: 


‘TST61: 


-SBTTL END OF PASS ROUTINE 


EERE REE EERE EERE RRR REE R EERE ER ERE E EERE REE E RRR EE 
< &INCREMENT THE PASS NUMBER ($PASS) 
> * INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
:*TYPE "END PASS vo gee — MXXXX IS A DECIMAL NUMBER) 
:*IF SW12=1 INHIBIT TRACE T 
:*IF THERES A Hag b= GO 10 tT 
:*IF THERE ISN'T JUMP TO LOOP 


SEOP: 
SCOPE 
CLR STSTNM ::ZERO THE TEST NUMBER 
CLR STIMES ye THE NUMBER OF ITERATIONS 
INC $PASS Fate, ty oy THE PASS NUMBER 
BIC #100000, $PASS =DON'T ALLOW A NEG. NUMBER 
DEC (PC) + LOOP? 
SEOPCT: .WORD 
BGT $SDOAGN szYES 
MOV (PC)+,a(PC)+ :cRESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE , SENDMG ; TYPE ‘END PASS #"' 
MOV SPASS,-(SP) + SAVE SPASS FOR TYPEOUT 
TYPDS *260 TYPE=-DECIMAL ASCII WITH SIGN 
TYPE , SENULL 72 TYPE A NULL CHARACTER 
$GET42: MOV a442,R0 27GET wae bay ADDRESS 
BEQ SDOAGN ;;BRANCH IF NO MONITOR 
CLR -(SP) :: INSURE THE ‘'T’’ BIT 7. eet 
MOV #$CLR.J.-(SP) 7; SETUP FOR AN RTI ORR 
BR $RTRN ::GO_DO AN RTI OR RIT 1D. LOAD THE PSW 
aint :7WITH A CLEARED ‘‘T’’ BIT 
MOV a442,R0 zs. INSURE RO CONTAINS THE MONITORS 
BEQ $DOAGN 7 RETURN ADDRESS 
RESET 3:CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 3:GO TO MONITOR 
NOP 32 SAVE ROOM 
NOP 7 FOR 
NOP 7ACT11 
SDOAGN: 
TRAP 3¢PUSH OLD PSwW AND PC ON STACK 
BIC #20, (SP) 7: CLEAR THE ° T 
BIT #81T12,aSWR : RUN WITH TRACE TRAP? 


BNE 1$ 33BR IF NO 


. 
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057416 000020 : $TBIT zz1S IT TIME FOR TRACE TRAP 
1004602 1$ :76R IF NO 
000020 #20, (SP) 37 SET TRACE TRAP 
057436 SB: MO #$LOOP,=-(SP) raf TO START OF TEST 
SRITRN: RETURN==THIS. IS CHANGED TO 
+ AN “RIT IF ‘RTT’ IS A LEGAL 
* INSTRUCTION 


$LOOP: 
a(PC)s RETURN 
SRINAD: . LOOP 
$TBIT: . 0 i:'T'' BIT STATE INDICATOR 
377 SENULL: .BYTE -1,-1,0 i :NULL CHARACTER STRING 
M6262 21 SENDMG: .ASCIZ. <15><12>/END PASS # 


oti 
— 
Ww 
oud 
oO 


-SBTTL SCOPE HANDLER ROUTINE 


FERRARA AEA AERA AERA EEEHEEEEKEEAE EEA EERE RERRRE Kee ee eee 
*STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
+ *AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
7*THE SWITCH OPTIONS eee BY THIS ROUTINE ARE: 
2*SW14=1 LOOP ON 
3*SwW11=1 INHIBIT LTERATIONS 
7 *Sw09=1 LOOP ON ERROR 
7 *Sw08=1 LOOP ON TEST IN SWR<7:0> 
7*CALL 
i” SCOPE ;;SCOPE=I0T 


057464 SSCOPE : 
057464 CKSWR Zz TEST FOR CHANGE IN SOFT-SwR 
057466 121444 1$: BIT #B1T14,aSWR ;;LOOP ON PRESENT TEST? 
057474 BNE $OVER “YES IF SW14=1 
;4HHHASTART OF CODE FOR THE XOR TESTERMMMAA 
057476 $xTSTR: BR 6$ 7: 1F RUNNING ON THE "‘XOR'' TESTER CHANGE 
::THIS INSTRUCTION TO A ‘NOP’' (NOP=240) 
Q#ERRVEC,-(SP) °:SAVE THE CONTENTS OF THE ERROR VECTOR 
#5$, AFERRVEC ::SET FOR TIMEOU 
a#177060 :TIME OUT ON X oon? 
(SP)+,@MERRVEC ::RESTORE THE ERROR VECTOR 
$SVLAD >:GO TO THE NEXT TES 
5$: (SP)+,(SP)+ *>CLEAR THE STACK SrTER A TIME QUT 
(SP)+,@WERRVEC ;;RESTORE THE ERROR VECTOR 
7$ LOOP ON THE PRESENT TEST 
CODE FOR THE XxOR’ tESTERMAAAE 
000400 121376 BIT #2 1708.9 aSwR ::LOOP ON SPEC. TEST? 


af NO 
121370 121330 aSWR,$TSTNM 3ON THE RIGHT TEST? SWR<7:0> 
E $OVER 7BR IF YES 
121323 : SERFLG {HAS AN ERROR OCCURRED? 
121327 121313 SERMAX. SERFLG bi AK ; ERRORS FOR THIS TEST OCCURRED? 
001000 121340 #B1T09,aSwR >:LOOP ON ERROR? 
4$ BR IF NO 


Whyte hybyt hey tyihythyt $8 4h th 4 oF eh eet $e HH 
BIFAEAGLSSSVRARAL TS 


Ra 
WOO 


DAA AAA AAAS 
Ssoveeyrey 
OWNANNEWD 


354 tS Lata 


NNNNN 
Wr OO 


11 
11 
11 
mi 
11 
11 
11 
11 
11 
WW 
11 
- 
11 
11 
11 
11 
11 
11 
11 
11 
17 
11 
11 
17 
11 
11 
11 
17 
11 
11 
11 
11 
11 
11 
17 
11 
11 
11 
11 
1 
11 
11 
1 
11 
1 
1 
17 
17 
11 
11 
11 
11 
1 
17 
17 
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et a ks a et ot 
PAGINA AAV 


ARRAN SESELRALAV AS Jae 


DAAAAAA SSSI 


Bee e SR OR Se Ess 


OND et me et ek et es as ot os 
WS OBNAMWS WO 


N 


mm kt a a sa 
BRS sceseseces 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


057742 


057744 
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016767 


121302 


121265 
121460 


004000 
121464 


121236 
121430 


121131 
121122 
002000 
001306 
121116 
121110 
000002 
121076 
020000 
002314 
001313 


MACY11 304(1052) 
SCOPE HANDLER ROUTINE 


121276 


7$: 
St: 


3$: 


1$: 


MO 
SSVLAD: 
MOVB 


SOVER: 


RTI 
SMXCNT: 1 


17 =JUN-79 


SLPERR,$LPADR 
SOVER 


SERFLG 
$STIMES 


1$ 
#81T11, aSwWwR 
1$ 


SINT 
$TIMES,SICNT 
$OVER 
#1,$ICNT 
SMXCNT ,STIMES 
STSTNM 


STSTNM,STESTN 
(SP), $LPADR 
(SP) ,SLPERR 
SESCAPE 

#1, SERMAX 


$1STNM, aDISPLAY 


$LPADR, (SP) 


. SBTTL’~ ERROR HANDLER ROUTINE 


D1 
11:50 PAGE 210 


:2SET LOOP ADDRESS TO LAST SCOPE 


:ZERO THE ERROR ©LAG 

CLEAR THE NUMBER OF bh eneiacn: TO MAKE 
sESCAPE TO THE NEXT TES 

i: INAIBIT ses semees: 


iif first PASS OF PROGRAM 
INHIBIT ITERATIONS 
* INCREMENT ITERATION COUNT 
#3 CHECK THE NUMBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
SREINITIALIZE THE ITERATION COUNTER 
tISET NUMBER OF ITERATIONS TO DO 
7; COUNT TEST NUMBERS 
33SET TEST NUMBER IN APT MAILBOXx 
72zSAVE SCOPE LOOP ADDRESS 
32 SAVE ERROR LOOP ADDRESS 
7-CLEAR THE ESCAPE FROM ERROR ADDRESS 
;ZONLY ALLOW ONE(1) ERROR ON NEXT TEST 
ZiDISPLAY TEST NUMBER 
3 FUDGE RETURN ADDRESS 
SCF IMES PS 
77MAX. NUMBER OF ITERATIONS 


LL AAA EERE AERA AA RARER EE EERE REER ERATE EERE REE eee 
*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;*AND GO TO ERTYPE ON ERROR 


7*SW 

*SW13=1 
*SwW10=1 
7*Sw09=1 
7*CALL 


SERROR: 
7$: 


:*THE SWITCH et PROVIDED BY THIS ROUTINE ARE: 
15= HALT ON ERROR 


INHIBIT ERROR TYPEOUTS 


BELL ON ERROR 
LOOP ON ERROR 


N ;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERFLG 
7$ 


Abie oy @DISPLAY : 


> gh 10; @SWR 
1$ 


, SBELL 
$ERTTL 

(SP) , SERRPC 
#2, $ERRPC 
@$ERRPC $1 TEMB 
ao Fae 


$ 
PC ,ERTYPE 
/ $CRLF 


:2TEST FOR CHANGE IN SOFT-SWR 

qe THE ERROR FLAG 
:DON*T LET THE FLAG GO TO ZERO 
:DISPLAY TEST NUMBER AND ERROR FLAG 

2 BELL ON ERROR? 
:NO = SKIP 

: :RING BELL 
COUNT THE NUMBER OF ERRORS 

77GET ADDRESS OF ERROR INSTRUCTION 


er AND SAVE THE ERROR ITEM CODE 
:SKIP TYPEQUT IF SET 
;SKIP TYPEOUTS 

260 TO USER ERROR ROUTINE 


SEQ 0210 
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122767 000001 121266 #APTENV, SENV 3 ZRUNNING IN APT MODE 

001007 7 NO,SKIP APT ERROR REPORT 

116767 121036 000004 SITEMB,21$ 77SET ITEM NUMBER AS ERROR NUMBER 
weet * 4 001126 perce 7ZREPORT FATAL ERROR TO APT 


;ZAPT ERROR LOOP 
121044 S$: es 


HALT ON 
SITEST FOR CHANGE IN SOFT=SwWR 
001000 121030 3$: tte :sLOOP ON ERROR SWITCH SET? 


7 7BR IF NO 
120772 $LPERR, (SP) iz FUDGE RETURN FOR LOOPING 
121162 4$: ete 4 eS FOR AN ESCAPE ADDRESS 


5 NONE 
016716 121154 o SESCAPE, (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 
022737 057370 ; ASENDAD,@#42 =: AC T=11 AUTO-ACCEPT? 
001001 6$ : BRANCH IF NO 
000000 


ssves 
6$: 
000002 7 RETURN 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


FEAR AAA AEE EAR EERE AREER EERE EEE REE 
SSSAVE RO-R5 

7*CALL: lie 

*® 

: “UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
eTOP=-=(+16) 

* t2-==(+18) 

7* +4=---R5 

* +6---R4 

7% +8---R3 

37*+10---R2 

p*+12---R1 

7*+14---R0 


SSAVREG: 
MOV 


aces 


RO,-(SP) 


000022 22(SP) ,=(SP) 
000022 22(SP),=(SP) 
000022 22(SP) ,~(SP) 
000022 22(SP) ,-(SP) 


: 
4 
1 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
q 
1 
1 
: 
1 
: 
1 
1 
1 
: 
: 
; 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


164 
1 
1 
1 
. 
1 
1 
1 
16 
1 
1 
1 
1 
1 
: 
. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: 


AXRXAKRARAAOW 
Sot Sette NEW EW NS 


7 *RESTORE RO-R5 


7 *CALL 
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:* RESREG 
SRESREG: 
MO 


(SP) +,22(SP) 2 zRESTORE PC OF CALL 
(SP)+,22(SP) 3 

(SP) +,22(SP) 33 

(SP)+,22(SP) ZERESTORE PS OF MAIN FiOW 
(SP)+,R5 2sPOP STACK INTO R5 
(SP)+,R4 zzPOP STACK INTO R4 
(SP)+,R3 z=POP STACK INTO R3 
(SP)+,R2 :zPOP STACK INTO R2 
(SP)+,R1 :sPOP STACK INTO R1 
(SP)+,RO zsPOP STACK INTO RO 


~ 


-SBTTL TYPE ROUTINE 


FERRER EERE REE KEE EKER EEE 


“ FROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
omieten WILL INSERT A NUMBER OF NU 
-* SNU 


S ENOTED: 
s*NOTES: 


** 
© 


NYN™ 
QEARAS 


*CALL 
i) USING A TRAP INSTRUCTION 
TYPE 2MESADR zzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


NNNNNN NNN VV 


TYPE 
ME SADR 


105767 120713 3 STPFLG sis ge A TERMINAL? 
100002 BP 1$ :2BR IF YES 
:2HALT HERE IF NO TERMINAL 


3$ oe 
: RO,-(SP) ;;SAVE RO 
000002 @2(SP) ,RO :2GET ADDRESS OF ASCIZ STRING 
000001 121050 MAPTENV, SENV UNNING IN APT MODE 
BNE ‘INO. GO CHECK FOR na 7, ee 
000190 121041 #APTSPOOL , SENVM : SPOOL MESSAGE TO AP 
62$ :2NO,GO CHECK FOR CONSOL E 
000004 RO,61$ 2zSETUP MESSAGE get FOR APT 
000672 J PC, SATY3 + SPOOL MESSAGE T 
61$: WORD :MESSAGE ADDRESS. 
000040 121017 : #APTCSUP,$ENVM ::APT CONSOLE SUPPRESSED 
60$ 7-YES,SKIP TYPE OUT 
(RO) +,=(SP) 2sPUSH CHARACTER TO BE TYPED ONTO STACK 
4$ ::BR IF IT ISN*T THE TERMINATOR 
(SP) + :21F TERMINATOR POP IT OFF THE STACK 
(SP)+,RO 2 RESTORE RO 
000002 ~ #2, (SP) $e U RETURN PC 


000011 : MPB MHT , (SP) ; BRANCH IF <HT> 
000200 + aaa at 3 ¢BRANCH IF NOT <CRLF> 


7 
7 
7 
7 
7 
7 
7 
7 
7 
7. 
7 
7 


08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

“a 

8 

9 


ree epee) ph 4S phe 
Wh— 


SSBIKAK 
NOW 
LO LO LOLOL LON OW LO LOW LO OO LON LO LOO LON LON LOO LON LOD LON LO LOO LO LOB LOO LOO LOO LB LON LOB LOOP LO LOB LO LOOP LB LOOP LOO LOOP LOO LOO LOL LO LO LO LOL LO LO Ne Ll, 


E> 


NN N NNN NN NNN NNN NNNN 
m-Ccwo 


* 
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SSSELRALK 
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SRS8S 


> 
00 
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11743 060354 005726 TST 
11744 060356 104401 TYPE 
11745 060360 001313 $CRLF 
11746 060362 105067 000130 CLRB 
11747 060366 000755 BR 
11748 060370 004767 000056 5$: JSR 
11749 060374 126726 120556 6$: CMPB 
11750 060400 001350 BNE 
ed 060402 016746 120546 MOV 
11753 06 105366 000001 7$: DECB 
11754 060412 002770 BLT 
11755 060414 004767 000032 JSR 
11756 060420 105367 000072 DECB 
11757 060424 70 BR 
11758 

11759 HORIZONTAL TAB 
11760 

11761 060426 112716 000040 8$: MOVB 
11762 060432 004767 000014 9$: JSR 
11763 060436 132767 000007 000052 BITB 
11764 060444 001372 BNE 
11765 060446 005726 TST 
11766. 060450 000724 BR 
11767 060452 105777 120472 $TYPEC: TSTB 
11768 060456 100375 BPL 
11769 060460 116677 000002 120464 MOVB 
11770 060466 122766 000015 000002 CMPB 
11771 060474 001003 BNE 
11772 060476 105067 000014 CLRB 
11773 060502 000406 

11774 5 122766 000012 000002 1$: CMPB 
11775 060512 001402 BEQ 
11776 060514 105227 INCB 
11777 060516 000000 $CHARCNT : . WORD 
11778 060520 000207 $TYPEX: RTS 
11779 

11780 

11781 

11782 

11783 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

17 
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*CALL: 
MOV 
‘ TYPOS 
. -BYTE 
* “BYTE 
* 
+ 
* 


*CALL: 


;@ MOV 


(SP) + 


SCHARCNT 
2$ 


PC, $TYPEC 
$SFILLC, (SP)+ 
2s 


SNULL ,~ (SP) 
1(SP) 

6$ 

PC, $TYPEC 
SCHARCNT 
7$ 
PROCESSOR 
#* (SP) 
PC, $TYPEC 
#7, $CHARCNT 
9$ 

(SP) + 

2$ 

asTPS 
$TYPEC 


2(SP) ,a$TPB 
+ aaah 


$STYPEX 
ALF ,2(SP) 
$TYPEX 
PC)+ 


PC 


-SBTTL BINARY TO OCTAL (ASCII) 


FF RRR KK REE KER EKER KEEEEKKEKKKR KKK 


>*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT. 
2 *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, -(SP) 


N 
M 


SEQ 0213 


zzPOP <CR><LF> EQUIV 
73 TYPE A CR AND LF 


7sCLEAR CHARACTER COUNT 

7zGET NEXT CHARACTER 

:3GO TYPE THIS CHARACTER 

2:eIS IT TIME FOR FILLER CHARS.? 
:2IF NO GO GET NEXT CHAR. 

:2GET # OF FILLER CHARS. NEEDED 
:¢AND THE NULL CHAR. 

:;DOES A NULL NEED TO BE TYPED? 
:3BR IF NO=--GO POP THE NULL OFF OF STACK 
72GO TYPE A NULL 

“gl COUNT AS A COUNT 


7REPLACE TAB WITH SPACE 

2; TYPE A SPACE 

3zBRANCH IF NOT AT 

32 TAB STOP 

7<zPOP SPACE OFF STACK 

3iGET NEXT CHARACTER 

3 WAIT UNTIL PRINTER IS READY 


:zLOAD CHAR TO BE TYPED INTO DATA REG. 
21S CHARACTER A CARRIAGE RETURN? 

; ;BRANCH IF NO 

72YES=--CLEAR CHARACTER COUNT 


g3 T 
7371S CHARACTER A LINE FEED? 
:zBRANCH IF YES 

32: COUNT THE CHARACTER 
3-CHARACTER COUNT STORAGE 


AND TYPE 


; NUMBER TO BE TYPED 
::CALL_FOR TYPEOUT 
i:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


3:17=TYPE LEADING ZEROS 
320=SUPPRESS LEADING ZEROS 


2 *$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


NUM ,~(SP) 


; NUMBER TO BE TYPED 





Orn 
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:* TYPON z:CALL FOR TYPEOUT 
; s$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
. L Hy 


NUM ,=(SP) 3 NUMBER TO BE TYPED 
3:CALL FOR TYPEOUT 


$TYPOS: a(SP) ,-(SP) :sPICKUP THE MODE 
000211 MO 1(SP) ,$OF ILL + sLOAD wy FILL SWITCH 
(SP)+,$OMODE+1 ;;NUMBER OF DIGITS TC TYPE 
) : ADJUST RETURN ADDRESS 


BR $TYPON 
000171 $TYPOC: at THE ZERO FILL SWITCH 
000165 MO 22SET FOR SIX(6) DIGITS 
000154 $TYPON: — ;SET “a ITERATION COUNT 


—_ 3 
—_~ 3 

@-~ 
es3 


38 
Wr 


SESKor 


; SAVE _R5 
000145 ’ SIGET THE NUMBER OF DIGITS TO TYPE 


000006 :; SUBTRACT IT FOR MAX. ALLOWED 
000132 z2SAVE IT FOR USE 

000125 SOF ILL.R4 22GET THE ZERO FILL SWITCH 
000012 ead oR5 fd NUMBER 


T WORD 
:sROTATE MSB INTO ‘'C’’ 
::GO DO MSB 
:2FORM THIS DIGIT 


00 Oo 00 G0 00 00 00 C0 00 C0 00 Co 
A) ed ck ed aed a aed cd ed ad ed 
SCUOONAUSWNO 


oo 
mr 
N— 


: ::GET LSB OF THIS DIGIT 
000076 33 phy THIS DIGIT? 


7$ IF NO 
177770 . [GET RID OF JUNK 
BN 4$ SITEST FOR 0 
{iBR IF YES 0? 
: «DON* T SUPPRESS ANYMORE 0'S 
000060 MAKE THIS DIGIT ASCII 
000040 3 #* ,R3 SZMAKE ASCII IF NOT ALREADY 
000040 23 SAVE FOR TYPING 
060742 ,8$ :GO TYPE THIS DIGIT 
000032 : 7:COUNT BY 1 
GT 2$ :7BR IF MORE TO DO 


:3:BR_IF DONE 

a LAST DIGIT ISN'T A BLANK 
O DO THE LAST DIGIT 

2 sRESTORE R5 


S 
ZZRESTORE R4 
7 RESTORE R35 
000002 000004 2(SP) 4 (SP) 73SET THE STACK FOR RETURNING 
(SP)+, (SP) 


eh beige ge 
BURAK 


oo 

Ww 

» 2) 
zzzZIITtItTwTITITTITTITETITLITLTLITLTITTLTLAzA LIT LtITAETTF272z2A2F7 2727277 729279297 9797227 Om 


3 =RETURN 
:sSTORAGE FOR ASCII DIGIT 
3; TERMINATOR FOR TYPE ROUTINE 


11 
"1 
"1 
1 
11 
11 
11 
11 
11 
11 
1 
11 
11 
"1 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
1 
11 
11 
118 
11 
11 
11 
11 
1 
11 
11 
1 
1 
11 
11 
11 
11 
11 
1 
11 
1 
11 
11 
11 
11 
11 
11 
11 
1 


AARARKR RRR RR RRR 
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11855 
11856 
11857 
11858 


PP SA Sot at 


SeNce 
NNNN 
WNr-O 0 


00 CO 
NN 
ws 


ase 
CON'OS 


gS 
~ 
oO 


RES RRR Et tat to det 


Sit tet tok 


1 
"1 
1 
11 
"1 
1 
1 
"1 
11 
11 
11 
11 
"1 
11 
11 
14 
1 
i] 
1 
11 
11 
1 
11 
1 
1 
11 
"1 
11 
"1 
1 
11 
11 
11 
"1 
1 
"1 
11 
11 
11 
1i 
11 
11 
11 
11 
11 
11 
11 
1 
11 
11 
1 
"1 


. @) 
= 
oO 


060744 


060745 
060746 
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000 
000 
000000 


08:40 


020200 
600020 
000055 


061164 
000040 


061154 


000001 
000060 
000040 


000010 


177777 


000001 


177777 


177776 
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BINARY TO OCTAL (ASCII) AND TYPE 
SOCNT: .BYTE 0 :;OCTAL DIGIT COUNTER 
SOFILL: .BYTE 0 :2ZERO FILL SWITCH 
SOMODE: .WORD 0 : NUMBER OF DIGITS TO TYPE 


8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


DOOD IIOIOIIIIOIIIOISIOISIIISISIOISIOIIOIUIOIOIOISIOIOIISISIIDIUIUIUIUIUIUIIUIOI TR ti tottit tt 
tSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
; *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
>*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


z*REPLACED WITH SPACES. 
> *CALL: 


MOV 


$TYPDS: 


NUM ,=(SP) 


RO,-(SP) 
R1,-(SP) 
R2,~-(SP) 
R3,-(SP) 
R5,~(SP) 
#20200,-(SP) 
20(SP),R5 
1$ 

R5 
#*=,1(SP) 
RO 


ASDBLK ,R3 
#' ,(R3)+ 
R2 


$DTBL(RO),R1 
R1,R5 


$ 
(SP) 
7$ 
(SP) 
6$ 
1(SP) ,-1(R3) 
#'0,R2 
#" ,R2 
R2,(R3)+ 
(RO) + 
RO,410 
2$ 
8$ 
R5,R2 
6$ 
(SP) + 
9S 
-1(SP),-2(R3) 


:3PUT_THE BINARY NUMBER ON THE STACK 
::GO TO THE ROUTINE 


7zPUSH RO ON STACK 
7zPUSH R1 ON STACK 
:zPUSH R2 ON STACK 
:¢PUSH R3 ON STACK 
PUSH R5 ON STACK 

SZ SET BLANK SWITCH AND SIGN 
oy THE INPUT NUMBER 
3;BR IF INPUT IS POS. 
:2MAKE THE BINARY NUMBER POS. 
7zMAKE THE ASCII NUMBER NEG. 
3:ZERO THE CONSTANTS INDEX 
72SETUP THE OUTPUT POINTER 
23 SET THE FIRST CHARACTER TO A BLANK 

: NUMBER 


ONS TANT 
FORM THIS BCD DIGIT 
:2BR_ IF DONE 
:- INCREASE THE 6CD DIGIT BY 1 


7zADD BACK THE CONSTANT 
72CHECK IF BCD DIGIT=0 
3zFALL THROUGH IF 0 
2eSTILL DOING LEADING 0'S? 

;BR IF YES 
32MSD? 
re. IF NO 
32 YES--SET THE SIGN 
2 sMAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIG 

PUT THIS CHARACTER IN THE OUTPUT BUF 
32 JUST INCREMENTING 
3zCHECK THE TABLE INDEX 
2:60 pe ht Fara DIGIT 


IT 
FER 


; TO ASCII 
3 WAS a es THE FIRST NON-ZERG? 
3IYES=-SET THE SIGN FOR TYPING 


_ SEQ 0215 
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CJKDCA.P11 


~ 
ai 
oO 
= 
—_ 


WOOODDOO0O 
le ed ed ed nd 2 ed 
OONAOWU EWP 


O0000 
INN 
Wh 


em da ad 
BIKAR 


RRGSARRRRAARRELLEL LLL 
WDWNAUBWN =O ODNAUEWN OO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


kk ed ed i a ad od od od ot od ot 


SEFERSE 


08-JUN-79 


105013 
012605 


112767 
112767 


000403 
112767 


001375 


08:40 


061164 
000002 


09001 
000001 


000001 


000206 
000001 
000700 
000004 
000002 
120026 


120034 


120024 


176670 


000062 
117752 
117724 


000004 


000236 
000226 


000220 


120076 
120067 


000004 


117774 


000016 
000004 


30A (1052) 


11=JUN=79 


1 
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216 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


9$: 


$DTBL: 


$DBLK: 


10. 
-BLKW 


(R3) 

(SP)+,R5 
(SP) +,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO0 


, $DBLK 
2 (SP) ,4(SP) 
(SP) +, (SP) 


4 


32SET THE TERMINATOR 
3zPOP STACK INTO RS 
3zPOP STACK INTO R3 


+ ¢POP STACK _INTO RO 
zNOW TYPE THE NUMBER 
SZADJUST THE STACK 


;sRETURN TO USER 


-SBTTL APT COMMUNICATIONS ROUTINE 


De deena cae Eee eee eee 


$ATY1: 
SATY3: 


SATY4: 
SATYC: 


#1,$FFLG 
#1, S$MFLG 


SATYC 
#1,$FFLG 
RO,~(SP) 
R1,~(SP) 
$MFLG 


5$ 
MAPTENV, SENV 
3$ 


ees 


@4 (SP) ,RO 
#2,4(SP) 
SMSGTYPE 

' 

RO, $MSGAD 
(RO) + 

2$ 

$MSGAD ,RO 
RO 

RO, SMSGLGT 
#4. $MSGTYPE 
a4 (SP) ,4$ 
#2,4(SP) 
177776, (SP) 
PC $TYPE 

0 

$FFLG 

12$ 

$SENV 

12$ 
$MSGTYPE 
11$ 


:TO REPORT FATAL ERROR 
:!70 TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 


7zPUSH RO ON STACK 
37PUSH R1 ON STACK 
2 s SHOULD TYPE A MESSAGE? 


:IF NOT: BR 
: /OPERAT ING UNDER APT? 
#2 SHOULD SPOOL MESSAGES? 
NOT: BR 
>iGET MESSAGE ADDR. 
; sBUMP RETURN ADDR. 
z2SEE IF BONE W/ LAST XMISSION? 


:2PUT ADDR IN MAILBOX 
:zFIND END OF MESSAGE 


::SUB START OF MESSAGE 

32GET MESSAGE LNGTH IN WORDS 
:sPUT LENGTH IN MAILBOX 
7zTELL APT TO TAKE MSG. 


y2PUT MSG ADDR IN JSR LINKAGE 
BUMP RETURN ADDRESS 

7PUSH 199776 ON STACK 

*:CALL TYPE MACRO 


+ ¢ SHOULD REPORT FATAL ERROR? 
:I1F NOT: BR 
: :RUNNING UNDER APT? 


ZF INISHED LAST MESSAGE? 
ze1F NOT: WAIT 


SEQ 0216 





MMAMY AON 





AAAA AAA AAA AMM AMA AM AHH AMA HAHAH AHHH AHA A A A BR A A A A tt HAH HH HH H- 


K 1 
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ssG@eT ERROR # 

;BUMP RETURN ADDR. 
e<TeLl Api TO TAKE ERROR 
+s CLEAR FATAL _ 


:sPOP STACK INTO RO 
3 RETURN 
2 ¢MESSG. FLAG 
:LOG FLAG 
ZIFATAL FLAG 


CI EAR KKK ERR ERE REE KKK KEE EKER KER EK KH 


FREE EK KKK KEKE KKK KR EEK KKK KKK Kk 


AND WILL 
>*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 


2218S THE SOFT=SWR SELECTED? 
IF NO 


3: 
;;1F NO, DON'T WAIT AROUND 
 ESAVE THE CHAR 
7zSTRIP-OFF THE ASCII 
:2IS IT A CONTROL G? 
:zNO, RETURN TO USER 
:zARE WE RUNNING IN AUTO-MODE? 
; ;BRANCH IF YES 


:sECHO THE CONTROL-G (*G) 

:sTYPE CURRENT CONTENTS 

7:SAVE SWREG FOR TYPEOUT 

::GO TYPE--OCTAL ts DIGITS) 
:sPROMPT FOR NEW 

aoe COUNTER 

:2THE NEW SWR 

372CHAR THERE? 

721F NOT TRY AGAIN 


:sPICK UP CHAR 
3eMAKE I? 7-BIT ASCII 


scIS ITA CONTROL =U? 


CJKDCA=A KEF11=A FP DIAG PART 1 MACY11 30A(1052) 17=JUN=79 

CJKDCA.P11 08=sUN-79 08:49 T COMMUNICATIONS ROUTINE 
11967 061374 017667 000004 117716 V a4 (SP), $FATAL 
11968 061402 062766 000002 000004 ADD #2,4(SP) 
11969 061410 005267 117702 INC $MSGTYPE 
11970 061414 105067 000020 12$: CLRB = $FFLLG 

11971 061420 105067 000013 CLRB = $LFLG 
11972 061424 105067 000006 CLRB $MFLG 
11973 061430 012601 MOV’ (SP)+,R1 
11974 061432 012600 MOV (SP) +RO 
11975 061434 207 RTS PC 

11976 061436 000 $MFLG: .BYTE 0 

11977 061437 000 $LFLG: .BYTE 0 

11978 061440 SFFLG: .BYTE 0 

11979 061442 “EVEN 

11980 000200 APTSIZE=200 
1981 0000 APTENV=001 

11982 000100 APTSPOOL=100 

11983 00040 APTCSUP=040 

11985 .SBTTL TTY INPUT ROUTINE 
11986 

11987 

11988 “ENABL LSB 

11989 

11990 

11991 + SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
11992 :*ROUTINE IS ENTERED FROM THE TRAP HANDLER, 
11994 :*WHEN OPERATING IN TTY FLAG MODE. 
11995 061442 022767 000176 117470 $CKSWR: CMP ASWRES, SWR 
11996 061450 001074 BNE 15$ 

11997 061452 105777 117466 TSTB = a$TKS 
11998 061456 100071 BPL 5$ 

11999 061460 117746 117462 MOVB = a$TKB,-(SP) 
12000 061464 042716 177600 BIC #°(177, (SP) 
12001 061470 022726 000007 CMP #7, (SP)+ 
12002 061474 001062 BNE 

12003 061476 126727 117432 000001 C $AUTOB, #1 
120%. 061504 001456 BEQ 

12006 061506 104401 062051 TYPE , $CNTLG 
12007 061512 104401 062056 $GTSWR: TYPE  “$MSWR 
12008 061516 016746 116454 MOV SWREG,-(SP) 
12009 061522 104402 TYPOC 

12010 051524 104401 062067 TYPE , SMNEW 
12011 0€1530 00504 19$: CLR <(SP) 

12012 061532 005046 CLR -(SP) 

12013 061534 105777 117404 7$: TSTB = aSTKS 

12014 061540 100375 BPL 7$ 

12016 061542 117746 117400 MOVB = a$TKB, - (SP) 
12017 061546 042716 177600 BIC #°(177, (SP) 
12019 

12020 

12021 061552 021627 000025 9$: CMP (SP) 425 
12022 061556 001005 BNE 10$ 


:CBRANCH IF NOT 


SEQ 0217 








C 
C, 
Y 
Y 
Y! 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
y 
Y 
Y 
Y 
Y 
Y 
Y 
Y' 


CJKDCA=A_KEF11=A FP DIAG PART 1 


CJKDCA.P11 


061560 
061564 
061570 


08-JUN-79 08:40 


104401 
062706 
000757 


021627 
001022 
005766 


042716 
022627 


062044 
000006 


117305 
000100 


176602 
000060 


000067 


000060 
000002 


000002 
177776 


001312 


000004 
117204 


- 117200 


117152 


117146 
177600 
000021 


MACY11 gg 


117324 


000001 
117302 


000002 


000004 
000004 
000023 


3 
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72YES, ECHO CONTROL=U (“U) 
:-IGNORE PREVIOUS INPUT 
7sLET'S TRY IT AGAIN 


eI IT ‘sa 

2eYES, IS IT THE FIRST CHAR? 
: CH IF YES 

SAVE NEW SWR 

33CLEAR UP STACK 


7zECHO <CR> AND < 
: ¢RE~ENABLE TTY aD INTERRUPTS? 


ee CH IF NOT 
et a TTY KBD INTERRUPTS 


7 BRANCH IF YES 


3s H YES 

7zSTRIP-OFF ASCII 

21S THIS THE FIRST CHAR 

CH IF YES 

:3NO, SHIFT PRESENT 

ae CHAR OVER TO MAKE 

es ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 

tISET IN NEW CHAR 

72GET THE NEXT ONE 

32 TYPE ?<CR><LF> 

3¢SIMULATE CONTROL-U 


JERK E KEE KEKRKKKKKEEEEEEKKKKKEEKKEKEKEKEKEKEKKKEEEEEEKKEEEEK KEK 


SSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


11=JUN-79 
TTY INPUT ROUTINE 
TYPE /SCNTLU 
20$: ADD #6,SP 
BR $ 
108: CMP (SP) 415 
BNE 16$ 
TST 4(SP) 
BEQ 11$ 
MOV 2(SP) ,aSWR 
11$: ADD #6, 
14$: TYPE /$CRLF 
CMPB —s S$ INTAG,, #1 
BNE 15$ 
MOV #100, a$TKS 
15$: — RTI 
16$: JSR PC, $TYPEC 
CMP (SP) ,#60 
BLT 18$ 
CMP (SP) ,467 
BGT BS 
Bic #60, (SP) + 
TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 
BIS -2(SP), (SP) 
BR $ 
18$: TYPE .$QUES 
BR 208 
.DSABL LSB 
*CALL: 
te RDCHR 
te RETURN HERE 
** 
$RDCHR: MOV (SP) ,-(SP) 
MOV 4 (SP) ,2(SP) 
1$: TSIB = aSTKS 
BPL 1$ 
MOVB = a$TKB,4(SP) 
BIC #*(<177>,4(SP) 
CMP 4(SP) 423 
BNE 3$ 
2$: TSTB = @$STKS 
BPL 2$ 
MOVB  a@$TKB,~(SP) 
BIC #°(177, (SP) 
CMP (SP) +,421 


53 vo A_ SINGLE CHARACTER FROM THE TTY 
2-CHARACTER IS ON THE STACK 
:sWITH PARITY BIT STRIPPED OFF 


:PUSH ~~ = PC 

SISAVE T HE P 

2 WAIT FOR 
7A_CHARACTER 

SZREAD THE TTY 

rem RID OF JUNK IF AN 
iTS IT A _CONTROL~S? 

CH IF NO 


SIWAIT FOR A CHARACTER 
:sLOOP UNTIL_ITS THERE 
CHARACTER 


<°MAKE IT 7=BIT ASCII 
21S IT A CONTROL -Q? 


SEQ 0218 


an 


Mm 1 
CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 30A(1052)_ 17=JUN-79 11:50 PAGE 219 


CJKDCA.P11 08-JUN-79 08:40 TTY INPUT ROUTINE SEQ 0219 
12679 062010 001366 BNE 2$ 32IF NOT DISCARD IT 
12080 062012 000750 BR 1$ 72YES, RESUME 
12081 062014 026627 000004 000140 3$: CMP 4(SP) ,4140 :2IS_ IT UPPER CASE? 
12082 062022 002407 BLT 4$ : BRANCH IF YES 
12083 062024 026627 000004 000175 CMP 4(SP) ,4175 331S IT A SPECIAL CHAR? 
12084 062032 003003 BGT 4$ ;BRANCH_IF YES 
12085 062034 042766 000040 000004 BIC #40,4(SP) :sMAKE IT UPPER CASE 
12086 062042 000002 4$: RTI ::GO BACK TO USER 
12087 062044 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> 7-CONTROL ‘U"' 


12088 062051 136 006507 000012 S$CNTLG: .ASCIZ /*G/<15><i2> :-CONTROL ‘'G’’ 
pia pesace 005015 053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = / 


000 
12091 062067 046 047040 053505 S$MNEW: .ASCIZ / NEW = / 
12092 062074 036440 000040 ; 


12093 

1coee -SBTTL TRAP DECODER 

12096 FG I IIIT I IIIT IT ITO IIIT IT TOTTI ITE IIIT STI SOI IIIA ANSI I AMAA ION 

12097 :*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 

12098 ;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

12099 >*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

‘Stor : :*GO TO THAT ROUTINE. 

12102 062100 010046 STRAP: MOV RO,-(SP) 72SAVE RO 

12103 062102 016600 009002 MOV 2(SP) ,RO 3:GET TRAP ADDRESS 

12104 062106 005740 TST -(RO) 3; BACKUP BY 2 

12105 062110 111000 MOVB (RO) ,RO 32GET RIGHT BYTE OF TRAP 

12106 062112 006300 ASL RO 3zPOSITION FOR INDEXING 

12107 062114 616000 062134 MOV $TRPAD(RO) ,RO 72: INDEX TO TABLE 

12108 062120 000200 RTS RO 7:GO0 TO ROUTINE 

A2:09 

12110 

ISit> 3:THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 

12113 062122 011646 $TRAP2: MOV (SP) ,-(SP) 7zMOVE THE PC DOWN 

12114 062124 016666 000004 000002 MOV 4(SP) ,2(SP) :zMOVE THE PSW DOWN 

‘Sita 062132 000002 RTI szRESTORE THE PSW 

ite -SBTTL TRAP TABLE 

12119 7*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

isi? >*BY THE ‘'TRAP’* INSTRUCTION. 

12122 : ROUTINE 

12123 : [nae 

12124 062134 062122 STRPAD: .WORD $TRAP2 

12125 062136 060240 $TYPE 32 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

12126 062140 060546 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
12127 062142 060522 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
12128 062744 060562 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
543.4 062146 060750 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
eat Ah 062150 061512 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT=SWR SETTING 

12133 062152 061442 $CKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 
12134 062154 061724 $RDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUT INE 


N 1 
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CJKDCA.P11 08-JUN-79 08:40 TRAP T SEQ 0220 


12135 062156 SSAVREG ;;CALL=SAVREG SAVE RO=-R5 ROUTINE 
12136 06 SRESREG ;;CALL=RESREG RESTORE RO=R5 ROUTINE 
«RSE 7s CALL=RSETUP ROUTINE TO RESET STACK AND FPS 
LPER ;;CALL=LPERR ROUTINE TO SET LOOP ON ERROR ADDRESS 
A STERM=.-8TRPAD 


-SBTTL POWER DOWN AND UP ROUTINES 


CII I IOI IIIS III OI IOI ITI IIIA IAI AISI AIS SAS SIA AISI AIA AM. 
;POWER _DOWN ROUTINE 
062344 000024 AMSILLUP,@APWRVEC ;;SET FOR FAST UP 
000340 000026 * MOV #340, a4PWRVEC+2 ; ; ¢PRIO: 7 
) : RO ON STACK 


od 
Ww 
N 


ed ee cd ced ced cel a ce ed cl a ce el cD ed et eld 
MIPINMININMGNINMYNINNMYNNPNYNENyNo Nor 
ee er 
VIE BEER RE R ROW 
M2 OOO NAURWA OOS 


116716 iF SH @SWR ON STACK 


6 ;sSAVE SP 
000024 #SPWRUP, @#PWRVEC’ :;SET UP VECTOR 
~e 7 HANG UP 


FIR IIICICIOIICIOIOIIIIIIIIIOI IAI IAI SI SISISI III I III IIIS ANIA AAAI ANSI AANA AM 
“ POWER UP ROUTINE 
000024 $PWRUP: MOV ASILLUP,@#PWRVEC ;;SET FOR FAST DOWN 
MO $SAVR6, SP ssGeT 
SSAVR6 7zWAIT LOOP FOR THE TTY 
1$: * oe ssWAIT FOR THE INC 


330F WORD 
116650 (SP)+,aSWR 33POP STACK 
:zPOP STACK 


_ 
Ww 
Ww 


N 


:2POP_STACK INTO RO 
062166 000024 #SPWRDN, @APWRVEC’ :;SET UP THE POWER DOWN VECTOR 
000340 000026 #340, a4PWRVEC+2 2 ePRI 10:7 
REPORT THE POWER FAILURE 

POWERM > POWER a mF? ee POINTER 

(PC) +, (SP) 7zRESTART AT STAR 

START 3 ¢RESTART ADDRESS. 

#20,2(SP) 7-CLEAR ° IT 

$TBIT 3:CLEAR THE ‘'T'' BIT FLAG 


32 THE POWER UP SEQUENCE WAS STARTED 
72 :2_ BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: :zPUT THE SP HERE 


.SBTTL ERROR TYPE OUT ROUTINE 
FARRER EEK EKER EKER KEKE REE KE EERE EREKEEKEKEKKEKEKK KEKE 
DIOS IIIIOIUIIIIOIOIUIIIIOIOIT I TOO IOI ITO Kk tok ttt 
SSTHIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH 1S INCLUDED 
;*IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE $ERROR ROUTINE 


NOUSWN OO 


SSRLRARATSS Aa VIANA AISSAS 





CJKDCA=A_KEF11=A FP DIAG PART 1 MACY11 yh 
08-JUN-79 


CJKDCA.P11 


12191 
12192 
193 


MNnronononononofenony 
—_ od 


4 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
; 


000207 


011637 
022626 
170200 


08:40 


001102 
177400 
001116 


007114 
177400 
062466 
001116 
062462 


001442 
062452 


001236 





001232 
001232 
001234 


044524 


036503 


ERTYPE : TYPE 
WORD 


BN 
PCTYP: TYPE 


2s: 


ERTS: MOV 
R 


11=JUN=79 


:*0UT AND THEN EXECUTING 
JSR 


$CRLF 

@ASTSTNM ,a#$TMPO 
#177400 ,a#$TMPO 
@ASERRPC ,a#STMP1 
RO,-(SP) 
a4$1TEMB RO 
#177400,R0 

MULT 

-EMSG 

@ASERRPC ,~(SP) 


@4ERTS 
RO 


RO 
#SERRTB,RO 
(RO) ,aA2$ 
ERTS 


0 


$CRLF 
PCTYP 


(SP)+,RO 
PC 


B 2 
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OR TYPE OUT ROUTINE 


:*OR BY FIRST SETTING = Sy ay EQUAL TO THE ERROR 


SPC: SERTYPE 


SEQ 0221 
TABLE ITEM TO BE PRINTED 


TYPE A CRLF 


;GET PC OF CALL 
; SAVE RO 


:GET THE ITEM NUMBER. 


IF ZERO THEN JUS] 
sPRINT THE PC 


OTHERWISE MULT RO BY 2 TO 
GET ERROR MESSAGE POINTER 


:PICK UP THE ADDRESS 


OF THE EM, ERROR MESSAGE 


sRESTORE RO. 
AND RETURN. 


EMSG: .ASCIZ /FLOATING POINT ERROR, STOPPED AT PC= 


-EVEN 


~ SBTTL 


; * THESE ALONG WITH THE FEC, 


FPSPUR: MOV 
CMP 
STFPS 


FPP SPURIOUS TRAP TO 244 HANDLER 
EER RRR ER ERE E ERE RE EERE Eee 
OUI IIOI I IDIDIDIIIUIOIIIOIOIIICOIOIUIOIOIUIDIOIOIUIOIOIUOIUISIIOIIDUIOR IO IO ont 

SS THIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 

:*THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 


(SP) ,a@A#$TMP2 
(SP) +, (SP)+ 
RO 


FPS AND PC OF TRAP ARE REPORTED. 


SAVE PC OF TRAP, 
RESTORE SP. 
7GET FPS 


c « 
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CJKDCA.P11 O8=JUN-79 08:4C FPP SPURIOUS TRAP TO 244 HANDLER SEQ 0222 


001240 MOV RO, a#STMP3 
STST RO GET FEC 
001242 MOV RO, aa $TMP4 
ERROR 1 ;MOST LIKELY BAD FP1 CHIP 
RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
[VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 
057264 MP ar$eE OP 


-SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 


os REAR AAEA ER AAA AE EERE EERE ARAEREEREEE EERE EE 
» RARER ARERR EEE A AREER R EEE EERE REE E 


:*THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 4. 


011637 001236 ; 7PSPUR: MOV (SP) ,@A#$STMP2 SAVE PC OF TRAP. 

022626 CMP (SP)+,(SP)+ 

104004 1$: FRROR 4 

104413 RSE TUP ;GO INITIALIZE THE FPS AND STACK; AND 
>SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


057264 JMP a4 $EOP 


-SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 


CLEARER AREER EERE EERE RRR ERERA EEA 


i SERRA EERE AERA EERE EEE EERE EERE EE ween eee 


:*THIS ROUTINE REPORTS UNEXPECTED CPL TRAPS TO VECTOR 10. 


011637 001236 ipTwo: MOV (SP) ,@ASTMP2 SAVE PC OF TRAP. 
CMP (SP)+,(SP)+ 
1$: ‘ERROR 2 

RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOF TWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 

057264 


-SBTTL SET LOOP ON ERROR ADDRESS ROUTINE 


FETA AAA ERA EEAAREREERER ARERR ERERHREKRER EKER eRe ee eee 
Ce Ny Faas eeeee 


011637 ‘PER: MOV (SP) ,@#$LPERR 
000002 RTI 


-SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 


SPRATT eee eee eee 
PLUMS AARA AERA RRR RAR RARER RRR EHERAHRERH Reet eee 





D 2 
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CJKDCA.P11 O8=JUN=79 08:40 FLAG RESET AND CONSOLE TEST ROUTINE ~ SEQ 0223 
12303 s*THIS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 
12304 ;*RESET THE STACK, CLEAR THE FPS AND SEE IF THE USER HAS TYPED 
12305 7* CONTROL G ON THE TERMINAL. IF THE USER HAS TYPED CONTROL G AND 
12306 ;*THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 
12307 7*OF THE SOFTWARE SWITCH REGISTER WILL BE TYPED IN OCTAL ON THE 
see ;*TELETYPE AND THE USER CAN MODIFY IT. 
** 
12310 062630 023727 001140 177570 .RSET: (CMP @ASWR #177570 SEE IF THERE IS A PHYSICAL 
12311 ; CONSOLE pai ree REGISTER. 
12312 062636 001001 BNE 1$ ‘BRANCH IF 
12313 062640 104407 CK SWR : OTHERWISE Tee THE CONTENTS 
12314 7OF THE PROGRAM VIRTUAL SWITCH REGISTER 
12315 [AND GIVE THE USER A CHANCE TO 
12316 MODIFY IT. 
12317 062642 012737 062534 000244 1$: MOV #FPSPUR ,@AFPVECT 
12318 062650 012737 062566 000004 MOV #CPSPUR ,@#ERRVECT 
12319 062656 012737 062604 000010 MOV a#CPTWO,a4#10 
12320 062664 011600 MOV (SP) ,RO ; SAVE RETURN ADDRESS. 
12321 062666 012706 001100 MOV STACK, SP RESET THE STACK POINTER. 
12322 062672 005004 CLR R4 CLEAR THE FPS, 
12323 062674 170104 LDFPS = RG 
loses 062676 000110 JMP (RO) RETURN. 
12326 -NLIST BEX 


SPECIAL MESSAGES: 
062700 050200 053517 051105 POWERM: .ASCIZ cog FAILURE. PROGRAM RESTARTING. '<CRLF> 


062745 090 NULL: .BYTE 
062746 000011 $TAB: .ASCIZ <TAB> 
062750 020040 000 SPACE: .ASCiZ * * 


sERROR MESSAGES: 


062753 120 047522 040502 EMI: -ASCIZ /PROBABLY BAD FP1 CHIP/ 
063001 120 047522 040502 EM2: “ASCIZ /PROBABLY BAD HYBRID FP CHIP/ 
06 3033 120 047522 040502 EM3: “ASCIZ /PROBABLY BAD MMU CHIP/ 


120 047522 040502 ane -ASCIZ /PROBABLY BAD MMU OR HYBRID FP CHIPS/ 
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CJKDCA.P11 08-JUN-79 08:40 SYMBOL TABLE ~ SEQ 0224 
AAADON 040746 AA6 022216 AMTYP4= 000000 BBP11 026222 BIT3 = 000610 
AAA 037744 AA? 022224 APASS = 000000 BBP7 026202 BIT4 = 000020 
AAAIO = 040362 ABASE = 000000 APRIOR= 000000 BB1 024732 BITS = 000040 
AAA11 040420 ACDW1 = 000000 APTCSU= 000040 BB10 025106 BIT6 = 000100 
AAAI2 040456 ACDW2 = 000000 APTENV= 000001 BB11 025126 BIT? = 000200 
AAAI3 040514 ACPJUOP= 000000 APTSIZ= 000200 BBi2 025136 BIT8 = 000400 
AAA2 2 ACO =%000000 APTSPO= 000100 BB13 025144 BIT9 = 001000 
AAA3 0 AC1 =%000001 ASWREG= 000000 BB14 025156 BPTVEC= 000014 
AAG 040076 AC2 =%000002 ATES?N= 000000 BB15 025206 B1 002456 
AAAS 040134 AC3 =%000003 AUNIT = 000000 BB16 025232 B2 002460 
AAA6 040172 ACS =%000004 AUSWR = 000000 BB17 025242 ~~ 02476 
AAA7 040230 ACS =%000005 AVECT1= 000000 024770 CCCDON 042460 
AAA8 040266 AC6 =%0 AVECT2= 000000 BB20 025254 CCCI 041454 
AAAQ 040324 AC7  =%000007 002252 BB21 025304 CCC10 042050 
AAYATO AD = 000000 All 002252 BB22 025330 ccCc11 

023140 ADDW1 = 000000 Al2 002266 BB23 025350 CCC12 §=©042140 
AAERRO 022472 ADDW10= 000000 A2 002326 BB24 025360 CCC13) = 042174 
AAERR1 022560 ADDW11= 000000 BBBDON 041450 BB25 025366 ccC2 041510 
AAERR2 022614 ADDW12= 000000 BBBER1 041224 BB26 025400 ccc3 041544 
AAERR3 022650 ADDW13= 000000 BBBER2 041310 BB27 025430 CCC4 
AAERR4 022660 ADDW14= 000000 BBBER3 041336 BB3 024774 cccs 041634 
AAERRS 022714 ADDW15= 000000 BBBER4 041364 BB30 025452 CCC6 041670 
AAERR6 022750 ADDW2 = 000000 BBBP1 041430 BB31 025462 CCC7 041724 
AAERR7 023 ADDW3 = 000000 BBBP2 041440 BB32 025474 CCC8 041760 
AAER10 022566 ADDW4 = 000000 BBBO 040754 BB33 025524 9 042014 
AAPATO 023050 ADDWS = 000000 BBB1 041010 BB34 025546 CCDATO 024566 
AAPAT1 023060 ADDW6 = 000000 BBB2 041036 BB35 25556 CCDONE 024726 
AAPAT2 023070 ADDW7 = 000000 BBB3 041066 BB4 025012 CCERO 024130 
AAPAT3 023100 ADDW8 = 000000 BBB4 041114 BBS 025022 CCER1 64 
AAPAT4 023110 = 000000 BBBS5 041152 BB6 025034 CCER1O0 024476 
AAPATS 023120 ADEVCT= 000000 BBB6 041160 7 025064 CCER11 024514 
AAPAT6 $= 023130 ADEVM = 000000 BBDATO 026102 BDONE 02546 CCER12 024532 
AAT 022112 ADONE 002444 BBDONE 026232 BERR 002502 CCER13 024550 
AAIC 022226 AENV. = 000000 BBERO 025570 BERR1 002532 ER2 024222 
AA11 022256 AENVM = 000000 BBER1 025630 BITO = 000001 CCER22 024236 
AAT2 022260 AERR1 002336 BBER10 025610 BITOO = 000001 CER3 024260 
AA13 022276 AERR2 002350 BBER11 025644 BITO1 = 000002 CCER4 024276 
AA14 022316 AERR3 002402 BBER2 025666 BITO2 = 000004 CCERS4 9 024312 
AA15 022336 AFATAL= 000000 BBER3 25704 BITO3 = 000010 CERS 34 
AA16 34 AMADR1= 000000 BBER4 025740 BIT04 = 000020 CCERSO 024200 
AA17 022350 AMADR2= 000000 BBER4O 025754 BITOS = 000040 CCERS5S5 024350 
AA2 022150 AMADR3= 000000 BBERS 025774 BITO6 = 000100 CCER6 024370 
AA20 022354 AMADR4= 00000 BBER6 026012 BITO7 = 000200 CCER? 9 024424 
AA21 022356 AMAMS1= 000000 BBER7 026046 BITO8 = 000400 CCER8 024442 
AA22 022410 AMAMS2= 00000 BBER8 026064 BITO9 = 001000 CCER9O 024146 
AA23 022412 AMAMS3= 000000 BBPATO 026112 BIT1 = 000002 CCPO 024576 
AA24 022432 AMAMS4= 000000 BBPAT1 026122 BIT10 = 002000 CCP1 024606 
AA25 022452 AM = 000000 BBPAT2 026132 BIT11 = 004000 CCP10 024676 

022460 AMSGLG= 000000 BBPAT3 026142 BIT12 = 010000 CCP11 024706 
AA27 64 AMSGTY= 000000 BBPAT4 026152 BIT13 = 020000 CCP12 «024716 
AA3 022152 AMTYP1= 000000 BBPATS 026162 BIT14 = 040000 CCP2 024616 
Mae 022170 AMTYP2= 000000 BBPAT6 026172 BIT15 = 100000 CCP3 024626 
AAS 022210 AMTYP3= 000000 BBP10 026212 BIT2 = 000004 CCP4 024636 
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CJKDCA.P11 08-JUN-79 08:40 TABLE ~ SEQ 0225 
CCP5 024646 C35 002706 DD16 026564 EEDATO 030720 E3 003466 
CCP6 024656 C4 002732 DD17 026614 EEDONE 031002 4 003470 
CCP7 C45 002744 DD18 026636 EEEDON 044424 FDATIO 005372 
cc} 023144 c5 002770 DD19 026656 EEERO 0512 FDATI1 005374 
cc10 36 c55 003010 DD2 026266 EEER1 30530 FDATI2 005376 
cc11 023370 C6 003032 DD20 026666 EEER2 030566 FDATI3 00 
CC12 023376 C65 003046 DD21 026674 EEERS 30624 FDATI4 005402 
CC13 023410 C7 003072 DD22 026706 EEERS 030662 FDATI5 
CC14 023440 C75 003114 DD23 026736 EEE 43420 FDATI6 54 
cc15 C 003140 DD24 026760 EEE10 044014 FDATI7 005410 
CC16 04 C85 003152 DD25 027000 EEE11 044050 FDATOO 005414 
CC17 023514 DDDATO 030076 DD26 027010 EEE12 044104 FDATO1 005416 
cc18 023522 DDDDON 043414 DD27 027016 EEE13 044140 FDATO2 005420 
cC19 023534 DDDONE 030226 DD3 026310 EEE2 043454 FDATO3 005422 
2 023174 DDD1 64 DD30 027030 EEES 043510 FDATO4 005424 
CC20 023564 DDD2 042540 DD31 027060 EEE4 043544 FDATOS 005426 
CC21 023610 DDD3 042614 DD32 027102 EEES 043600 FDATO6 § 005430 
CC22 023630 DDD4 042670 DD35 027122 EEE6 043634 FDATO7 005432 
CC23 023640 DDD5 042744 DD34 027132 EEE7 043670 D 005456 
CC24 023646 DDD6 043020 DD35 027140 EEE8 043724 FERRO 004200 
cC25 66 DDD? 043074 DD36 027156 EEE9 043760 FERR1 
CC26 023710 DDERO 027310 DD37 027206 EEPO 030730 FERR10 005016 
CC27 023732 DDER1 027326 DD38 027230 EEP1 030742 FERR11 00 
CC28 023752 DDER10 027744 DD39 027250 EEP2 030752 FERR2 
CC29 023762 DDER11 030002 DD4 026330 EEP3 030762 FERR20 005072 
Cc3 023216 DDER12 030040 DD40 027260 EEP4 0772 FERR21 005210 
(C30 023770 DDER2 027364 DD41 027266 EERRO 003514 FERR25 005232 
cC31 024002 DDERS 027422 DD42 027304 EERR1 003532 FERR26 005350 
CC32 024032 DDER4 027460 DDS 026340 EERR2 003546 FERR3 
CC33 024054 DDERS 027516 DD6 026246 30232 FERR4 
CC34 024074 DDER6 027554 DD7 026364 EE10 030452 FERRS 004472 
CC35 024104 DDER7 027612 DD8 026414 EE11 030462 FERR6 004526 
CC36 024112 DDER8 27650 DERR1 003316 EE12 030470 FERR7 
CC37 24124 DDER9 027706 DERR2 003412 EE13 030506 FER 
CC4 023236 DDISP = 177570 DISPLA 001142 2 030262 FFDATO 031300 
ccs 023246 DDONE 003436 DISPRE 000174 EE3 030304 F F DONE 36 
CC6 023254 DDPO 030106 DIVDSU 043154 EES 030324 FFERO 031170 
CC7 023266 DDP1 030116 DIVDT 043404 EES 030334 FFER1 031204 
cc8 023316 DDP2 030126 DIVFSU 042234 EE6 30342 FFER2 031242 
cc9 023340 DDP3 030136 DIVFT 042450 EE7 030360 FFFDON 045154 
CDONE 003174 DDP4 030146 DPAT3 013316 EE8 030410 FFF 044430 
CKSWR = 104407 DDP5S 030156 DSWR = 177570 EE9 030432 FFF2 
CMPSUB 040556 DDP6 030166 D1 003222 62466 FFF3 044560 
CMPTMP 04 DDP7 030176 D10 003424 EMTVEC= 000030 FFF4 
CPSPUR 062566 DDP8 030206 D2 003246 62753 FFPO 031310 
CPTWO 062604 DDP9 030216 D3 003250 EM2 063001 FFP 31320 
CR = DD1 026236 D4 003254 EM3 063035 FFP2 031330 
CRLF = 2 DD10 64 DS 003266 3063 FFPS 031340 
C1 002562 DD11 026446 D6 003302 ERRVEC= 000004 FFP4 031350 
C15 002602 DDi2 026464 D7 003312 ERTYPE 062352 FFI 031006 
C 002624 DD13 026514 D8 003362 FRT 062462 FF10 031156 
C25 002640 DD14 026536 D9 003374 £1 03452 FFI 031166 
C3 002664 DD15 026546 EDONE 003576 E2 003466 FFO 31036 
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GGER12 035322 034134 HHHDON 054344 
b 1 


NON oo 
YIN -——]- - DOO fw 
BOAKMNOALNO 


oo 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


0 
035254 033344 032746 011416 
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037142 005650 LPAT21 


WR -Oo NOUS WwNe 


NOUS WWNPININININD SR MR RP RO 


I 
I 
I 
I 
] 
I 
I 
I 
I 
] 
I 
] 
I 
I 
] 
I 
] 


037172 095642 LPAT20 013606 013666 
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CJKDCA.P11 08=JUN-79 08:40 TABLE SEQ 0228 
M2 013672 N8 014302 PDATIO 016040 QDATOO 016540 SERR10 012232 
M3 013674 014314 PDATI1 016042 QDATO1 016542 SERR15 012312 
M4 013676 ODATIO 915374 PDATI2 016044 QDATO2 016544 SERR2 012352 
M5 013732 ODATI1 015376 PDATI3 016046 QDATO3 016546 SERR20 012332 
M6 013736 ODATI2 015400 PDATOO 016050 QDONE 016560 SERR3 012376 
M7 013746 ODATI3 015402 PDATO1 016052 QERRO 016226 SERR4 012270 
013756 ODATOO 015332 PDATO2 016054 QERR1 016472 SERRS 012454 
013766 ODATO1 015334 PDATO3 016056 QERR11 016236 SERR6 
NDATIO 014670 ODATO2 015336 PD 016060 QERR12 016254 SERR7 012410 
NDATI1 014672 ODATO3 015340 PERRO 015526 QERR13 016272 SPACE 2750 
NDATI2 014674 ODONE 015404 PERR1 015746 QERR14 016310 SPAT10 012512 
NDATI3 014676 OERRO 015074 PERR10 015546 QERR15 016326 SPAT11 012514 
NDATOO 014626 OERR1 015174 PERR11 015556 QERR16 016336 SPAT12 012516 
NDATO1 014630 OERR10 015126 PERR12 015574 QERR17 016344 SPAT13 012520 
NDATO2 014632 OERR11 015140 PERR13 015612 QERR2 016426 STALK = 001100 
NDATO3 014634 OERR2 015230 PERR14 015630 QERR20 016372 START 001466 
014700 OCERR20 015202 PERR15 015646 QERR21 016402 STKLMT= 177774 
NERRO 014370 OERRS 015240 PERR16 015656 QERR22 016410 SWR 001740 
NERR1 014470 OERR4 015250 PERR17 015664 QERRS 016436 SWREG 000176 
NERR10 014422 OERRS 015260 PERR2 015774 QERR4 016444 S = 000001 
NERR11 014434 OERR6 015304 PERR20 01571 QPAT10 016520 SwOO = 000001 
NERR2 014524 OPAT1O 015364 PERR21 015722 QPAT11 016522 SwO1 = 000002 
NERR2O0 014476 OPAT11 015366 PERR22 015730 QPAT12 016524 Sw02 = 000 
NERRS 014534 OPAT12 015370 PIRQ = 177772 QPAT1$ 016526 SwO3 = 000010 
NERRG 014544 OPAT13 015372 PIRQVE= 000240 QPAT20 016530 Sw0O4 = 000020 
NERRS 014554 OPAT2O0 015350 POWERM 062700 QPAT21 016532 SwOS = 000040 
NERR6 014600 CPAT21 015352 PPAT10 016030 QPAT22 016534 SwO6 = 0001 
NNNDON 056320 OPAT22 015354 PPAT11 016032 QPAT23 016536 SwO7 = 000200 
NNN1 055276 OPAT23 015356 PPAT12 016034 C 016064 SwO8 = 000400 
NNN2 055400 OPAT24 015360 PPAT13 016036 Q10 016222 swO9 = 001000 
NNN3 055502 OVDNTT 046744 PRO = 000000 Q2 016106 SWI = 002 
OVDTT 050550 PR1 = 000040 Q3 = 016110 SW10 = 002000 
NPAT10 014660 OVFNTT 046004 PR2 = 000100 Q4 016112 SW11 = 000 
NPAT11 014662 OVFTT 047606 PR3 = 000140 Q5 016134 SW12 = 010000 
NPAT12 014664 OVUNDN 046344 PR4 = 000200 Q6 016156 SW13 = 020000 
NPAT13 014666 OVUNDT 050146 PRS = 000240 Q7 016166 SW14 = 040000 
NPAT20 014646 OVUNFN 045404 PR6 = 000300 Q8 01620 SW15 = 100000 
NPAT21 014650 OVUNFT 047204 PR7 = 000340 Q9g 6214 SWZ == 000004 
NPAT22 014652 01 014704 PS = 177776 RDCHR = 104410 SWw3 = 000010 
NPAT23 014654 010 015034 PSW = 177776 RESREG= 104412 Sw4 = = 000020 
NULL 062745 011 15044 PWRVEC= 000024 RESVEC= 000010 SWS = 000040 
N1 014176 012 015046 P1 015410 RSETUP= 10 SW6 = 000100 
N10 014330 013 015062 P2 015432 =%000006 SW7 = 200 
N11 14340 014 015072 P3 0154 =%000007 Sw8 = 000400 
N12 014342 02 014730 P4 015436 SADR 12506 Sw9 == 001000 
N13 014356 03 014732 P5 015460 SAVREG= 104411 $1 012002 
N14 4366 04 014734 P6 015502 SDATOO 012522 $10 012150 
N2 014222 05 014752 P7 015512 SDATO1 012524 $1 012174 
N3 014224 06 014762 P8 015522 SDATO2 012526 $12 12204 
014226 07 014772 QDATIO 016550 SDATO3 012530 S2 012036 
NS 014244 08 015006 QDATI1 016552 DONE 012532 $3 012040 
N6é 214254 09 015020 QDATI2 016554 SERRO 012212 S4 012044 
N7 014264 PCTYP 062414 QDATI3 016556 SERR1 012422 $5 012070 
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S6 012100 TST31 = 022110 17 006434 WDATO1 020376 XPATS 057174 
$7 012106 TST32 023142 UDONE 017676 WDATO2 020400 XPAT6 057204 
072142 TST33 = 024730 UERRO 017342 WDATOS 020402 XTMP 021136 
“9 012144 TST34 = 0026234 UERR1 017366 WDONE 020404 xT1 056326 
= TST35 030230 UERR10 017374 WPATOO 020364 XTIA 056342 
TETTVE= 000014 TST36 = 031004 UERR11 017436 WPATO1 020366 XT10 056754 
TDATIO 7 TST37 = 031360 UERR2 017452 WPATO2 020370 xT11 057002 
TDAT:7 007070 TST4 003176 UERR20 017460 WPATO3 020372 XT12 057030 
TDATI2 007072 TST4O0 =: 033304 UERR21 017522 W 017700 XT13 
TDATI3 007074 TST41 036222 UERR3 017 w10 020106 XT13B = 057112 
TDATOO 007056 TST42 = 037742 UERR4 017566 W117 020134 xT2 056344 
TDATO1 007060 TST43 =©040750 UFLAG 017662 Wi2 020164 XT2A 64 
TDATO2 007062 TST44 = 041452 UPATOO 017612 w13 020210 XT2B 056402 
TDATO3 7 TST45 042462 UPATO1 017614 w14 020220 xT3 056414 
007076 TS146 = 043416 UPATO2 017616 w15 020246 XT3A 056436 
TERRO 4 TST47 = 044426 UPATO3 017620 Ww16 020302 XT4 056446 
TERR1 006726 TST5 003440 UPAT10 017622 W17 020326 XT4A 056476 
TERR2 006746 TSTSO 045156 UPAT11 017624 017730 XT4B 056510 
TERR25 006762 TST51 046016 UPAT12 017626 w20 020336 XT5 056526 
TERR3 007012 TST52 046756 UPAT13 0% W3 017754 XT5A 056546 
TERRS 006774 TST53) = 04 UPAT20 017632 Ww 017766 XT5B 056560 
TKVEC = 00006 TST54 050562 UPAT21 017634 w5 020016 XT6 056576 
TPAT1O 007036 TST55 =©052240 UPAT22 017636 020052 XT6A 056624 
TPAT11 007040 TST56 =©054346 UPAT23 017640 020076 XT6B 5 
TPAT12 007042 TSTS7 = =©055274 UPAT30 017642 XAPT11 021162 XT7 056654 
TPAT13 007044 TST6 003600 UPAT31 017644 xX 057114 x18 056702 
TFAT20 TST60 056322 UPAT32 017646 XDATOO 021140 xT9 056730 
TPAT21 007050 TST61 64 UPAT33 017650 XDATO1 021142 XX1 056324 
TPAT22 007052 TST7 005460 UPAT40 017652 XDATO2 021144 x1 020410 
TPAT23 007054 TYPDS = 104405 UPAT41 017654 XDATO3 021146 X10 020692 
TPVEC = TYPE = 104401 UPAT42 017656 XDONE 021200 x11 020616 
TRAPVE= 000034 TYPOC = 104402 UPAT4$ 017660 XERR1 021024 X12 020652 
TRTVEC= 14 TYPON = 104404 UROM1 017670 XERR2 021106 X13 020676 
TST1 002220 TYPOS = 104403 UROM2 017672 XERR3 021052 X14 020704 
TST10 T1 006310 UROMS 017674 XERR4 021122 X15 020720 
TST11. 007100 T10 006444 UTMP1 017664 XNEXT 057224 X16 020754 
TST12 =©011054 T105 006452 UTMP2 017666 XPATO 057214 x17 
TST13 11 ud 016600 XPATO 057124 K2 020444 
TST14 =012534 T12 006456 U1 016630 XPATOO 021150 X20 1 
TST15 013030 113 006472 U10 017166 XPATO1 021152 X21 021022 
TST16 §=013322 714 006526 U11 01717 XPATO2 021154 x3 020470 
TST17 13644 715 006530 Ul2 017222 XPATO3 021156 x4 020476 
TST2 002446 T16 006532 U13 017240 XPAT1 057134 x5 020514 
TST20 8 014174 717 006550 U14 017272 XPAT10 021160 x6 020550 
TST21 014702 T2 006330 U15 017322 XPAT12 021164 x7 020574 
TST22 015406 T20 006610 U16 017324 XPAT13 021166 YCATOO 021544 
TST23 6062 T21 006624 U2 016674 XPAT2 057144 YDATO1 021546 
TST24 016562 T22 006626 U3 016726 XPAT20 021170 YDATO2 021550 
TST25 017676 T23 006640 US 016 XPAT21 021172 YDATO3S 021552 
TST26 0406 13 006370 US 017024 XPAT22 021174 YD 21604 
TST27 ~=©021202 Té 006372 17070 XPAT23 021176 YERR1 021404 
1573 002550 15 006374 17122 XPAT3 057154 YERR2 021446 
TST30 1 T6 006420 WDAPOO 020374 XPAT4 057164 YERRS 021510 
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021534 pereee SERFLG 001103 SOMODE 060746 001144 


263 
-$X = 001452 


TIMES 3 
057312 060744 $TKB 001146 
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